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1 . ABSTRACT 

The PDP-15 Baste Exerciser is designed to exercise the CP, core memory 
and models 33 or 35 teleprinters with the program interrupt facility 
enabled. The program will also test the real time clock, high speed 
reader and high speed punch, if these options are present on the PDP-15 
being used. The operator must specify the I/O configuration with the 
A C switches as described in section 5.1. 

The Basic Exerciser consists of a condensed version of the PDP-15 
Instruction Tests. These tests run continuously, and are Interrupted at 
a device rate by the I/O device (s). The real time clock, if used, will 
interrupt and suspend all operations at random time intervals. The 
instruction test or I/O device resumes operation after the clock interrupt 
has been serviced. 

Ten ACS functions (described in sect. 5.1) are provided to enable the 
operator to (1) inhibit the instruction and memory tests and run the I/O 
device (s) alone; (2) inhibit program interrupts and run the instruction 
tests alone; {3) loop continuously on the adder test; (4) inhibit 
program relocation; (5) inhibit the real time clock, but continue testing 
with program interrupt and all other devices enabled; (6) run the instruction 
tests and the clock and punch with the read and print sequence inhibited; 
(7) run the reader, real time clock and instruction tests with the punch 
and Teletype inhibited; (8) run the read and print sequence, real time 
clock, instruction tests with the punch inhibited; (9) run the Teletype and 
instruction tests with the punch and reader inhibited. Items 6, 7 and 8 
above, are applicable only when the high speed reader and punch option 
is installed. 

2. REQUIREMENTS 

2 .1 Equipment 

A PDP-15 with at least 8K of core memory. 

2 .2 Storage 

The program requires the entire 8K of core memory to perform all tests. 

The program initially resides in memory locations 00000 to 7757 (octal). 
When the program is relocated to the high order 4K field, it occupies 
locations 10022 to 17757 (octal). 

3. LOADING PROCEDURE 


The tape supplied is in the .ABS format. 



a. Set the ADDRESS switches to 17700. 

b. Place all AC switches on a 0; the BANK MODE switch on. 

c. Place the tape in the reader. 

d. Press I/O RESET, and then READ-IN. 

4. STARTING PROCEDURE 

4.1 Starting Addresses 

200, or 10200 if the program is currently in the upper 4K field. 

4.1 .1 Restarting Addresses 

32, or 10032 if the program is currently in the upper 4K field. 

4.2 Operator Action Without High Speed Reader and Punch 

a. Set the ADDRESS switches to 00200. 

b. Place ACS 9 on a 1 to indicate no high speed reader and punch. 

c. If a real time clock is not installed place ACS 5 on a 1 . 

Otherwise, leave on a 0. 

d. Press I/O RESET, ond then START. 

e. The program will run until an error halt occurs, or manually 

stopped by the operator. 

4.2.1 Operator Action With High Speed Reoder and Punch 


a. 

Set the ADDRESS switches to 00200. 


b. 

Place all ACS on a 0. 


c . 

If a real time clock is not installed place ACS 5 on 
Otherwise, leave on a 0. 

a 1 . 

d. 

Press I/O RESET, and then START. 


e . 

Approximately 3 1/2 feet of leader will be punched. 

This 


leader is blank except for one frame, which has all 
punched . 

channels 
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f. Place the punched frame directly over the high speed reader 
drive sprocket, and arrange the tape between the reader and 
punch for minimum binding. 

g. Press CONTINUE. 

h. The program will run until an error halt occurs, or manually 
stopped by the operator. 

4.2.2 Restarting Procedure 


a. Set the ADDRESS switches to 00032. 

b. Set ACS 5 and 9 according to the I/O configuration being 
used. Other AC switches may be set at this point. See 
section 5.1 . 

c. If the high speed reader and punch are used, make sure there 
is tape in the reader. The tape does not have to be blank 
leader when restarting. 

d. Press I/O RESET, and then START. 

e. The program will run until an error halt occurs, or manually 
stopped by the operator. 

The program may also be restarted from 200, if new leader is desired. 

5. OPERATIONAL SWITCH SETTINGS 


The ACS functions provided are listed in section 5.1 . To make changes 
in the ACS settings, the program must be stopped by the operator before 
the changes are made. The program must then be restarted from address 

32 (or 10032). The program may not acknowledge the new ACS settings 
if the above procedure is not followed. 

ACS Functions 


ACS 

Function 

0 (1) 

Run only the I/O device (s). Program interrupt will 
be enabled. 

1 (1) 

Inhibit the I/O device (s). Program interrupt is 
disabled. The real-time clock is on. The complete 
Instruction test will be performed. 

2 (1) 

Loop continuously on the "add random pairs" test. The 
I/O devices end program interrupt will be enabled unless 
specified otherwise by an ACS. 
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5.1 


Continued 


ACS 
4 (1) 


5 (1) 

6 0 )* 


7 (D* 


8 (1)* 


9 (1) 

(0) 


Function 


inhibit program relocation. Unless otherwise 
specified, the program will run in a normal way, 
but will not relocate from its current 4K field 
location to the opposite field after completing the 
instruction tests. 

inhibit clock. Unless otherwise specified, program 
action is normal except that the clock should always 
be off. 

Inhibit the reader and TTY. The punch will run 
continuously. Tape must be in the reader to prevent 
the no-tape indicator from being set. Program 
action is no'mal unless otherwise specified. 

Inhibit the punch and TTY. The reader will run 
continuously. A loop or fan-fold tape with any 
data may be used. Program action Is normal unless 
otherwise specified. 

inhibit the punch. The reader will read 52 characters 
at full speed and then halt. The TTY will then print 
the 52 characters read. Any tape loop or fan-fold 
tape may be used. Program action is normal unless 
otherwise specified. 

No high speed reader and punch installed. 

The high speed reader and punch option is present. 


With ACS 9 on a 1 switches 6, 7 and 8 are ignored. 


If the reader and punch option is installed, the I/O devices may be 
controlled with several combinations of ACS 6, 8 and 8. If ACS 7 and 8 
are set to ones, the reader will run continuously, as if ACS 7 only were 
on a 1 . If ACS 6 and 7 or 6 and 8 are set to ones, all devices will be 
inhibited. Ptogram interrupt and the real time clock (if installed) will be 
enabled unless otherwise specified. 


^Applies only if the high speed reader/punch option is installed. 



5.2 


Subroutine Abstracts 


The PDP-15 Basic Exerciser may be the thought of as three separate 
programs, i.e., the instruction tests; control of the I/O device (s), 
and operation of the real time clock if installed. The instruction 
tests will be interrupted by the I/O device (s) at the device rate. 

The real time clock will randomly interrupt any of the above operations 
at a rate determined by the program. After each clock interrupt, the 
clock is re-initialized with a new number obtained by a random number 
generator. The clock interrupts take first priority, followed by the 
Teletype, reader and punch. 

5.2.1 Instruction Tests 


The instruction test portion of the Basic Exerciser performs tests on all 
operate group and memory reference instructions. The individual 
instructions are looped a random number of times before proceeding 
to the next test. The maximum number of loops made on any one test 
is 32,767. 

The adder is tested using two different methods. The first performs bit 
by bit tests on the adder using the ADD instruction. Besides checking 
for correct results after an addition, the link is tested during overflow 
and no overflow conditions . 


The second method, the "Add Random Pairs" test, tests the adder using 
one pair of random numbers (A and B) and their 1 's complement values 
(-A and -B), and the ADD instruction. These four values are added 
in various combinations, the results of which are compared against 
precalculated results. The precalculated results are obtained by adding 
the two pairs together using the TAD instruction. Four additions are 
made, the results of which are used in the test. The link is tested after 
each addition, if it is a 1, a 1 is added to the result to simulate an 
end-around-carry . 

The numbers added and their sums are indicated in the listing using the 
following symbols: 

-B+(-A) = SUMNEG 

A+B = SUMPOS 

B-A = BMASUM 

A-B = AMBSUM 

The values of A, -A, B and -B plus their sums are used to test the 
combinations of ADD's shown below. 


ADD 


SUM SHOULD EQUAL 


A + B 
-B + A 
-B + (-A) 
B-A 


SUMPOS 

AMBSUM 

SUMNEG 

BMASUM 
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5.2.1 Continued 

ADD SUM SHOULD EQUAL 


(A + B) - A 

BPOS 

(B) 

(B - A) - B 

ANEG 

(-A) 

(_A-B) + A 

BNEG 

(-B) 

(A - B) + B 

APOS 

(A) 

777777 + A 

APOS 


A + B - A 

BPOS 


A + B - A - A 

BMASUM 

(B - A) 

a+b-a-a-b 

ANEG 


a+b-a-a-b-b 

SUMNEG 

("A -B) 

a+b-a-a-b-b+a 

BNEG 


a+b-a-a-b-b+a+a 

AMBSUM 

(-B + A) 

a+b-a-a-b-b+a+a+b 

APOS 



After completing one pass of the above testS/ a second pass is made on the 
same tests. The second pass makes ail "B" constants “A", and all "A" 
constants "B" before repeating. 

Immediately following the second pass, one random number and its Is 
complement is obtained and saved in APOS and ANEG, respectively. 

Bit 0 of APOS is tested for equaling 0 or 1 . If the value is 1 , the bit 
remains unchanged, and the respective bit in the complement number is 
changed to equal a 1 . The two numbers are then added together, the 
sum of which should equal all O's except for bit 0. If the ADD is 
successful, the program continues testing all other bit positions in the 
same manner. 

Example: (Bit 0 altered) 

Step APOS Value 

1 577776 

2 577776 600001 (bit 0 altered) 

3 Add together. Result should = altered bit. 

^ 101 111 in 111 111 110 

110 000 000 000 000 001 

^ oil in in 111 111 111 

1 (end around carry) 

100 000 000 000 000 000 

The sum equals the altered bit position. 

After completing the adder tests, the remaining memory reference instructions 


ANEG Value 
200001 
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5.2.1 Continued 

are tested and the program relocates the entire Basic Exerciser to the 
opposite 4K field. All memory reference instructions and memory 
locations used for testing are adjusted accordinly. All locations within 
the program which reference any memory location between 0 and 21 
are not adjusted. These locations are used during program interrupts, 
auto-indexing tests, etc., and must not be altered. Program interrupt 
is disabled while relocation is taking place. 

After relocation of the program is completed, the exerciser is auto- 
matically restarted at location 112 (or 10112). This location is tagged 
SEQUEN. The operator is able to determine the location of the program 
by observing the PC. 

The Teletype BELL will ring once for each completed pass of the program. 
One pass is defined as the p-ogram performing all tests from each 4K 
field, and then relocating back to the field in which the program was 
first Initiated. 

When operating the Basic Exerciser with program interrupt inhibited 
(ACS 1 on a 1), the message "COMPLETE" will be printed after five 
complete passes of the program. This message is printed after ten 
passes when ACS 4 (inhibit relocation) and ACS 1 are on a 1 . This 
feature is included as a means to determine the number of successful 
passes completed by the program if it is to be run for extended periods 
of time. 

5.2.2 Punch, Read, Print Sequence 


This section applies only to those PDP-15's with the high speed reader 
and punch option installed. The instruction tests will be interrupted, 
at a device rate, by the punch, reader, or Teletype. The data punched 
consists of the alphabet characters, followed by numbers 0 through 9, 
with a space character being punched between each letter or numeral 
character. The reader will read the tape at punch speed, storing away 
any punched character. Frames of all O's are ignored. The punch and 
read sequence consists of 52 ASCII characters punched, read and stored 
away in an Input buffer (tagged TTBUFA). After reading the 52nd 
character, the contents of TTBUFA are transferred directly to another 
52 - location buffer tagged TTBUFB. This second buffer Is provided 
to enable the operator to stop the program and compare the contents 
of either buffer A or buffer B with the punched data on tape. Punch 
and read operation is halted after the 52nd character is read and stored. 
The contents of TTBUFB are then printed on the Teletype. The punch 
and read sequence continues immediately after the 52nd character is 
printed. The data punched and read should appear on the Teletype as 
the example below. 

ABCDEFGHIJKLMNOPQRSTUVWXYZ)2(123456789 

ABCDEFGHIJKLMNOPQRSTUVWXYZj2(123456789 
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The punch and read sequence generates 72 characters altogether, even 
though only 52 are punched, read and printed at one time. The alphabet 
and numbers sets with a space between each character enables a full line 
to be printed. The spacing also enables the operator to more easily 
detect a misprinted character. Each group of 72 characters is separated 
by 8 blank frames. The group which is positioned in the reader is the 
current line being printed. A carriage return and a line feed is punched 
at the end of each group. The program will punch 6 extra blank frames 
between two groups, appro>;imately every fourteenth group, to enable the 
slack between reader and punch to remain constant. 

5.2.3 Use of the Real Time Clock 


This section applies only to those PDP~15's with the real time clock option 
installed. The instruction and memory tests, and the punch, read and print 
sequence are both interrupted randomly by the real time clock. When a 
clock interrupt occurs, all other operations are halted until the clock 
interrupt has been serviced. Immediately after the clock interrupt is 
granted, it is reset to a new random value. This value is chosen by the 

program to ensure that the clock interrupts no sooner than 2 seconds, nor 

later than 9 seconds. The clock is again enabled after being reset to a new 
value, and the instruction test or read, punch and print sequence is 
allowed to continue from the point of interrupt. 

At times, the Basic Exerciser may appear to be caught in a loop after a 
clock interrupt occurs. The console irKlicators will show the clock and 
PIE as being disabled, and the punch, read and print sequence will be 
halted for several seconds. The program during this time is attempting to 
generate a number for the clock which falls within the 2 to 9 second 

limit. All operations will be resumed as soon as a suitable random value 

is found. 

The operator may disable the clock interrupts by restarting from location 32 
with ACS 5 on a 1 . 

5.2.4 Interrupt Service Routine 

Program interrupts by the clock, punch, reader or Teletype are all 
serviced by a common routine. A common routine for reentering the 
instruction test is also used. 

Locations 0 through 6 are used to save the contents of the AC and PC 
immediately after an interrupt occurs. The contents of the AC are stored 
in the location tagged SAVAC. The contents of the link and PC are 
stored in the location tagged RJMP. The program then enters a routine 
which determines which of the four devices interrupted the program. This 
routine is tagged SRVINT. SRVINT will test for device flags in the 
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following order: clock. Teletype, no-tape Flags, reader, punch. 

The first device flag found to be set indicates the device which must 
be reinitiated by the program. 

Immediately after servicing the proper device, a routine is entered 
which will restore the contents of the link and AC at the time of the 
program interrupt. The routine is tagged RTNIT. RTNIT first restores 
the AC (from SAVAC); restores the link (by testing bit 0 of RJMP); 
enable program interrupt; and then returns to the instruction test by a 
JMP indirect on the contents of RJMP. 

The operator may disable program interrupts by restarting from location 32 
with ACS 1 on a 1 . 

5 .3 Program and Operator Action 


See Sections 4.2 and 5.2. 
6. ERRORS 


6.1 Error Halts and Description 

Reference the program listing for all error halts. 

All error halts are tagged EXXX, and are commented to aid debugging. 

Each test is self-contained, any may be looped. See Section 6.2.1 for 
looping instructions. 

Unless a solution is obvious from following the listing, the proper MAINDEC 
diagnostic for the device in error should be run. This should be necessary 
mainly when errors are caused by one of the I/O devices. 

Incorrect operation of the real time clock will appear as clock interrupts 
occurring sooner than 2 seconds apart, or greater than 9 seconds, or 
possibly no clock interrupts will occur. 


Printing of incorrect data may be caused by the data being incorrectly 
punched, read or printed. Storage registers, and their locations in the 
program, which the punch, read, print sequence use are listed below. 

Tag Function 

SAVAC 
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Saves contents of AC after a program interrupt. 

Saves contents of PC and link after a program 
interrupt . 



Continued 


Tag 


Function 


WORK 


Bit 1 if set indicates TTY is in use. 


GOPNCH 

SETCLK 

CLKSET 

TTOUT 

TTIN 

TTBUFA 

TTBUFB 

STORE 

SETTY 

GENRAN 


Contains contents of PC at exit from 
punch routine. 

Routine which sets a random value in 
clock register 7 when program interrupt 
is disabled. 

Same function as SETCLK, but is used only 
after a clock interrupt. 

Location pointer for TTBUFB when printing. 

Location pointer for TTBUFA when reading 
with a high speed reader. 

Storage buffer for characters read with a high 
speed reader. 

Storage for characters to be printed. Contents 
should equal TTBUFA. 

Contains character punched. 

Routine which is entered after 52 characters 
have been punched and read. Sets up 
TTBUFB before printing. 

Random number generator used when PI is 
disabled . 


RANGEN 


Same as GENRAN, but used only after an 
interrupt. 


When using the teleprinter alone (ACS 9 on a 1) the characters printed are 
generated by the routine tagged PNXT on the program listing. After 
generating one character, the routine will either immediately print it 
(ACS 9 on a 1), or punch it with the high speed punch (ACS 9 on a 0). 

When operating with the high speed reader and punch (ACS 9 on a 0) the 
data punched is in ASCII mode, and one printed line is indicated on the 
paper tape by 8 blank frames separating each line. The punched data 
starts with character A (301) and ends with a line feed (212). A space 
character (240) is punched between all alphabet and number characters. 



When data is incorrectly printed, stop the program during print-out. 

This will enable TTBUFA and TTBUFB to be examined before the contents 
of either are changed. The contents of TTBUFA will be changed as 
soon os reading begins. 

The line of punched characters in the reader is the line currently being 
printed. The operator may inspect the tape for an incorrect character 
punched. If it appears correctly on the tape, it may have been read 
or printed incorrectly. The characters read are stored in a 52-word 
buffer beginning at location tagged TTBUFA. The characters 
being printed are stored in a 52-word buffer beginning at location 
tagged TTBUFB . If the program was stopped during printing, these two 
buffers should contain exactly the same information. The first character 
read or printed is stored in the first location of either buffer. One 
character is stored per location, if the data was read incorrectly, the 
contents of TTBUFA will not equal the last 52 characters on the tape. 

If the data on tape, and in TTBUFA and TTBUFB are equal, the tele- 
printer may be at fault. 

6.2 Error Recovery 

Press CONTINUE to receive further error halts or to continue testing, as 
indicated by the listing. 

Recovery from error halts in the Add Random Pairs test is accomplished by 
pressing CONTINUE one or more times, depending on the type of error 
encountered. Pressing CONTINUE after a halt due to an incorrect sum 
will result in a second halt. The AC will equal the incorrect sum at the 
first halt, and the sum used for comparison at the second halt, if the 
error halt is the result of a LINK error, the next test in sequence will be 
executed . 

Looping on Individual Tests 

Looping on individual tests, except for the interrupt routines. Add Random 
Pairs test and Memory test, is accomplished by placing a JMP instruction 
in the first location of the test to be looped. Restart the program at 
location 32, if program interrupt is to be enabled. Restart at the first 
location of the test to be looped, if interrupts are not wanted. 

The complete series of tests for any one instruction may be looped by 
placing a NOP in the location which contains ISZ WORKS. This 
instruction appears at the end of each series of tests for each instruction. 
Restart at location 32, or at the beginning of the test to be looped. 

Looping on Add Random Pairs 

The complete series of tests may be looped by restarting from location 32 
with ACS 2 on a 1 . 
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The individual tests may be looped by changing the LAW instruction, 
appearing after each test, to a JMP. For example, to loop on 
(A-B) + B = A (tagged AMBPBT), change the LAW AMBPBT instruction 
to JMP AMBPBT. Restart from location 32, or AMBPBT. 

Error Print-outs 


The program continually tests for reader or punch no tape indicators 
being set. When either indicator is set the message "R NO TAPE", or 
"P NO TAPE" will be printed. The program continues on in sequence 
after either print-out. 

OPERATING RESTRICTIONS 

All MAINDEC diagnostics which apply to the PDP-15 configuration being 
used should be run before attempting to run this program. 

MISCELLANEOUS 

Execution Time 


Approximately 2 minutes are required to execute all tests for one 4K field. 
PROGRAM DESCRIPTION 


The Basic Exerciser performs tests on all memory reference and operate 
instructions . 

During normal operation, i.e., with ACS 5 and 9 set for the I/O 
configuration in use, and all other ACS on a 0, the program will exercise 
the I/O device (s) and program interrupt while the instruction test portion 
is running. The PC indicators will change according to the portion of the 
instruction test being executed. 

When the I/O device (s) is operated with the instruction test inhibited 
(ACS 0 on a 1) the Ml will indicate a constant 600151 (JMP 151) . On 
the listing this Is written as JMP. . at location 151. Program interrupt 
is enabled at location 15X), and all device interrupts will occur immediately 
after the execution of the JMP instruction. The interrupts are handled In 
the same manner as if the instruction test were operating; the only difference 
being that the interrupt service routine (RTNIT) always returns to location 
150 after reinitiating the device which caused the interrupt, instead of 
returning to the instruction test. 

If no errors occur, the Basic Exerciser will run until stopped by the 
operator . 


LISTINGS 



PAGE i 


BX8k 


/lOT OEFIMTIOMS 
/ 


/ 


700001 

CLSrs700001 

700004 

CLOrs700004 

700044 

CLONi“700044 

y 

700101 

/ 

RSrs700101 

700102 

RCF»700102 

700112 

RRBs7001l2 

700104 

RSAs700104 

700144 

RS8s700144 

700201 

PSP«70020l 

700202 

PCF»700202 

700204 

PSA»700204 

700244 

PSBa700244 

700301 

kSFs700301 

700312 

KRBs7003l2 

700401 

/ 

TSFa700401 

700402 

TCFs700402 

700406 

TLS«700406 

740030 

IACS740030 

742030 

SWHA«742030 


/ 



page 2 BX8k BX8K 

.TITUE BX8K 

/PDp-15 BASIC rxERCiSER FOR SK OR ^^ORE 


/ 

/copyright 1969, digit 
, ABS 


/ 



740000 

\OPls\OP 


740000 

N0P2»N0P 


740000 

N0P3aN0P 


740040 

halt*mlt 

00022 


,LOC 22 

00022 

750004 

/ 

begin las 

00023 

507345 

AND K3400 

00024 

740200 

S2A 

00025 

600032 

JMP ,*5 

00026 

107217 

JMS PNLEDR 

00027 

107231 

JMS PNMARK 

00030 

107217 

JMS PNLEDR 

00031 

740040 

halt 

00032 

147520 

OZM W0RK4 

00033 

147334 

OZM break 

00034 

703302 

CAP 

00035 

147514 

OZM WORK 

00036 

147001 

OZM COPNCH 

00037 

206704 

lac oatabl 

00040 

047352 

DAC TTIN 

00041 

047351 

OAC TTOut 

00042 

447351 

IS2 TTOUT 

00043 

167351 

02M» TTOUT 

00044 

207351 

lac TTOUT 

00045 

546705 

SAO ENOBIN 

00046 

741000 

SKP 

00047 

600042 

JMP ,*5 

00050 

206704 

lac oatabl 

00051 

047351 

DAC tTOUT 

00052 

206360 

lac enotbl 

00053 

047335 

DAC WOCNT 

00054 

777737 

law «41 

00055 

047273 

OAC CRLP 

00056 

447335 

ISZ WOCNT 

00057 

167335 

OZM# WDCN7 

00060 

447273 

ISZ CRLF 

00061 

600056 

JMP .wS 


.EJECT 


L EQUIPMEWT CORP., maYN-ARD, MASS, 


/CHECK for switches 7,8 OR 9 


/SETUP POIMTERS 
/CLEAR tty bin 

/restore pointer 

/clear error table 



3 


BX8K 


BX8K 


00062 

700002 


lOF 


/PI OFF 


00063 

750004 


LAS 




00064 

507425 


AND 

K400 



00063 

741200 


SN'A 




00066 

600076 


JMP 

telly 

/HO TTY 


00067 

207302 


lac 

KJMP 

/jMp £646*3 


00070 

047002 


OAC 

GOPNCH*! 



00071 

760377 


law 

377 



00072 

700406 


TLS 


/SET flag 


00073 

207245 


LAC 

TLSSF+6 



00074 

046367 


OAC 

rtnit-3 



00075 

600107 


JMP 

SE0UEN«3 



00076 

700104 

TELLY 

RSA 


/INITIALIZE REAOERi PUNCH 


00077 

750004 


LAS 




00100 

507427 


AND 

K3K 



00101 

741200 


SNA 


/IF ACS 7 OR 8 A li DON • T PUNCH 

00102 

700204 


PSA 




00103 

206656 


lac 

E645*1 



00104 

046567 


dac 

RTNIT»3 



00103 

206406 


LAC 

TADRAN*2 

/NOP 


00106 

047002 


DAC 

GOPNCH*! 



00107 

200147 


LAC 

INITPI 

/INITPI s PNSTRT 


00110 

047001 


OAC 

GOPNCH 



00111 

047527 


DAC 

RJHP 

/(RJMP) ■ PNSTRT 


00112 

207501 

SEQUEN 

LAC 

KSKp 

/RESTORE address 1 

(SKP) 

00113 

040001 


OAC 

1 



00114 

206526 


LAC 

SAV3 

/RESTORE address 3 


00113 

040003 


OAC 

3 



00116 

207535 


LAC 

SAV4 

/RESTORE address 4 


00117 

040004 


DAC 

4 



00120 

206527 


LAC 

SAV5 

/restore address 5 


00121 

040005 


OAC 

5 



00122 

206530 


LAC 

SAV6 

/RESTORE ADDRESS 6 


00123 

040006 


OAC 

6 



00124 

207533 


LAC 

KHAlT 

/restore address 2 

(MALT) 

00123 

042002 


DAC 

2 



00126 

040021 


OAC 

21 



00127 

447320 


iSi 

W0RK4 

/PASS COUNTER 


00130 

750004 


LAS 




00131 

507437 


AND 

K10K 



00132 

741200 


SNA 


/CHECK ACS 5 FOR INHIBIT CLOCK 

00133 

106614 


JMS 

setclk 



00134 

750004 


LAS 




00135 

741100 


SPA 




00136 

600150 


JMP 

INHIT 

/inhibit INST, TEST 


00137 

740010 


ral 




00140 

740100 


SMA 


/CHECK FOR inhibit PI 


00141 

700042 


ION 


/PI ON 


00142 

750004 


las 




00143 

507343 


and 

K100K 



00144 

740200 


SZA 


/check loop on RANDO^^ AQD 


00143 

602413 


JMP 

RANAOOwZ 

/LOOP 


00146 

600152 


JMP 

I0TST^2 




/ 

INITPI PNSTRT 


00147 006710 
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BX8k 


Bx8K 


/ 

INSTRUCTION TEST 
550152! 700042 INhJT ION 

00151 600151 J^P , /WAIT for pi 

/ 

.CJECT 




/ 


'aGC 5 BX8K BX8K 

/TEST CLEAR AC AT EVENT TIME 1 WiTW MB 14, 


/ 


00152 

106336 


JMS genran 

00153 

106362 


JMS CKNO 

00154 

750001 

lOTST 

CLA5CMA 

00155 

700110 


700110 

00156 

740200 


SZA 

00157 

740040 

E24 

M 

HALT 

00160 

750001 

i 

CLA'CMA 

00161 

700210 


700210 

00162 

740200 


SZA 

00163 

740040 

E25 

i 

halt 

00164 

750001 

f 

CLAICMA 

00165 

700310 


700310 

00166 

740200 


SZA 

00167 

740040 

E26 

y 

halt 

00170 

750001 


CLAICMA 

00171 

700010 


700010 

00172 

740200 


SZA 

00173 

740040 

E27 

y 

HALT 

00174 

600201 

f 

s 

JMP 201 

00200 


f 

,LOC 200 

00200 

600022 

/ 

JMP begin 



/ 

/TEST 

y 

iORS BIT 0 a 

00201 

750004 


las 

00202 

740010 


RAL 

00203 

741100 


SPA 

00204 

600210 


JMP ,♦ 

00205 

700314 


lORS 

00206 

740100 


SHA 

00207 

740040 

E27a 

y 

HALT 

00210 

447517 

/ 

iSZ WORK3 

00211 

600154 


JMP lOTST 

00212 

106336 


JMS genran 

00213 

106362 


JMS CKNO 


.eject 


/get no. For loop 

/AC s 7777777 
/AC c 0 

/ERROR. AC NOT 0 
/AC a 777777 
/AC a 0 

/ERROR, AC NOT 0 
/AC a 777777 
/AC a 0 

/ERROR. AC NOT 0 
/AC a 777777 
/AC a 0 

/ERROR, AC NOT 0 


IF PI enabled, 

/PI inhibited 

/ERROR, Pi enabled, BUT lORS-0 NOT SET 

/CHECK done looping 
/LOOP 

/GET NO. FOR NEXT TEST 


) 
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BX8k 


BX8K 


/TEST lOT 3344 (OBR>, 1* 0 
/ 


00214 

744000 

TSDBR 

CLU 

/LINK s 

0 



00215. 

100237 


JMS DBRx 





00216 

741400 


S2L 





00217 

740040 

E28 

haut 

/ERROR. 

DBR EAIlEOi 

Lil'iK NOT 

0 



/ 

/TEST 

iOT 5344 (OBR), L 

= 1 




00220 

744002 

/ 

CLLICMU 

/L * 1 




00221 

100237 


JMS DBRx 





00222 

740400 


SNU 





00223 

740040 

E29 

WALT 

/ERROR. 

DBR failed. 

link 

NOT 



/TEST 

y 

lOT 3344 (DBR), L 

« 0 




00224 

754000 

/ 

CULiCLA 

/AC, L 

■ 0 



00225 

100242 


JMS OBRXX 





00226 

740400 


SNL 





00227 

740040 

E30 

HALT 

/ERROR. 

DBR FAIlFO, 

link not 

1 



/TEST 

y 

IOT 3344 (DBR), L 

« 1 




00230 

754002 

/ 

CLIICMLICLA 

/L • li 

AC » 0 



00231 

100250 


JMS OBRXXX 





00232 

751400 


CIAISZI. 





00233 

740040 

E31 

HALT 

/ERROR, 

DBR failed. 

link not 

0 

00234 

447517 


iSi W0RK3 


/CHECK done 

looping 


00235 

600214 


JMP TSOBR 


/LOOP 



00276 

600256 


JMP OPRAT 


/start imstruction test 

00237 

000000 

n 

DBRX 

0 

/leave 

LINK ALONE 



00240 

703344 


703344 

/DBR 




00241 

620237 


JMP« DBRX 





00242 

000000 

06RXX 

0 





00243 

200242 


eac dbrxx 





00244 

347435 


TAO K400k 


/SET LINK TC 

1 A ONE 


00245 

040242 


DAC OBRxx 





00246 

703344 


703344 

/DBR 




00247 

620242 


JMP# dbrxx 





00250 

000000 

y 

OBRXXX 

0 





00251 

200250 


lac dbrxxx 





00252 

507511 


AND M400K 


/clear link 



00253 

040250 


DAC OBRXXX 





00254 

703344 


703344 

/OBR 




00255 

620250 


JMP# dbrxxx 






.EJECT 



PAGE" 


7 BX8 k BX8K 

/TEST operate Group 


/ 


?0256 

106336 

QPRAT 

JMS GEN'RAN 

/GET NO, FOR 

I LOOP ON TtS7 

00257 

106362 


JMS CKN'O 



00260 

777777 

OPERAT 

y 

law 17777 

/AC 

» 777777 

00261 

741000 

/ 

SKP 

/TEST SKP 


00262 

740040 

E32 

halt 

/ERRORl SKP 

failed Tc skip 



/TEST 

CLA • SHA 



00263 

750000 


CLA 

/AC ■ 0 


00264 

740200 


S2A 



00265 

740040 

E33 

MALT 

/ERROR! CLA 

OR SEA failed to SKIP 



/TEST 

SNA 



00266 

750000 


CLA 

/AC ■ 0 


00267 

740100 


S^A 



00270 

741000 


SKP 



00271 

740040 

E34 

halt 

/ERROR! SAME 

: SKIPPED 



/TEST 

SPA 



00272 

750000 


CLA 



00273 

741100 


SPA 



00274 

740040 

£35 

WALT 

/ERROR! SPA 

failed to Skip 



/TEST 

SNA 



00275 

750000 


CLA 



00276 

741200 


SNA 



00277 

741000 


SKP 



00300 

740040 

E36 

HALT 

/ERROR! SNA 

SKIPPED 



/TEST 

S2L - CLL 



00301 

744000 


CLL 

/link « 0 


00302 

741400 


S0L 



00303 

740040 

E37 

HALT 

/ERROR! SZL 

failed to skip or 





/CLL failed 

to clear link 



/TEST 

SNL 



00304 

744000 


CLL 

/LINK ■ 0 


00305 

740400 


SNL 



00306 

741000 


SKP 



00307 

740040 

E38 

halt 

/ERROR! SNL 

SKIPPED 


, EJECT 
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BX8K 


BX8K 




/TEST 

CLA ClL 



00310 

754000 


clajcll 

/AC, LINK 5 0 


00311 

740200 


S?A 



00312 

740040 

E39 

WALT 

/ERRORJ AC NOT q_ 




y 

/TEST 

CLA CLL 



00313 

754000 


clajcll 

/AC AND LINK s pi 


00314 

741400 


S2L 



00315 

740040 

E40 

HALT 

/ERRORJ link not 0 




/TEST 

SKP SPA 



00316 

750000 


CL4 



00317 

741100 


SKPJSPA 



00320 

740040 

E41 

HALT 

/ERROR} SKPJSPA FAILED TO 

SKIP 



/TEST 

SKP SNA 



00321 

750000 


CLA 



00322 

741200 


SKPJSNA 



00323 

741000 


SKP 



00324 

740040 

E42 

HALT 

/ERROR} SKPtSNA SKIPPED 




/TEST 

SKP S2L 



00325 

744000 


CLL 

/LINK • 1 


00326 

741400 


SKPJSZL 



00327 

7 40040 

E43 

HALT 

/ERROR} SkPJSZL FAILED TO 

SKIP 



/TEST 

SPA SNA 



00330 

750000 


CLA 



00331 

741300 


SPAISNA 



00332 

741000 


SKP 



00333 

740040 

C44 

HALT 

/ERROR} SPAJSNA SKIPPED 




/TEST 

SPA SZL 



00334 

754000 


CLAJCLL 

/LINK AND AC 8 0 


00335 

741500 


SPAJSZL 



00336 

740040 

£45 

HALT 

/ERROR} SPAJSZL FAILED TO 

SKIP 



/tEST 

SNA SZL 



00337 

754000 


CLAJCLL 

/LINK AND AC 8 0 


00340 

741600 


SNAJSZL 



00341 

741000 


SKP 



00342 

740040 

E46 

HALT 

/ERROR} SNAJSZL SKIPPED 




/TEST 

SNAi SPAi SKPi SZL 


00343 

754000 


CLAJCLL 

/AC AND link 8 0 


00344 

741700 


SKPJSPAJSZLJSNA 



00345 

741000 


SKP 

/ERROR} SNAJSPAjsKPJSZL SKIPPED 

00346 

740040 

E47 

HALT 




.EJECT 




PAGH 9 

BX8K 

BX8K 







/TEST 

SMA S2A 




P10347 

750000 


CLA 




0035? 

740300 


SMA1S2A 




00351 

740040 

i48 

/ 

/TEST 

HALT 

/E=?RORJ 

SMA SZA failed TO SKIP 




SMA SNL 




00352 

754000 


CLAJCLL 

/LINK AND AC a 0 

) 

00353 

740500 


SMAISNL 




00354 

741000 


SKP 




00355 

740040 

E49 

HALT 

/EPRORl 

SMAISNL SKIPPED 




y 

/TEST 

SZA SNL 




00356 

754000 


CLAlCLL 




00357 

740600 


SZAISNL 




00360 

740040 

£50 

WALT 

/ERRORl 

SHAISNL SKIPPED 




/TEST 

SMA SZA SNL 




00361 

754000 


CLAtCLL 




00362 

740700 


SMAJSZA’SNL 



) 

00363 

740040 

E51 

HALT 

/ERRORl 

SMAISZAISNL failed TO SKIP 




y 

/TEST 

CML - SZL 



■' 

00364 

744000 


Cll 

/LINK * 

0 


00365 

740002 


CML 

/link » 

1 


00366 

741400 


S2L 



) 

00367 

741000 


SKP 




00370 

740040 

E52 

HALT 

/ERRORl 

SZL SKIPPED OR 

) 





/CML failed to set LINK 



y 

/TEST 

CLL 




00371 

744000 


CLL 

/LINK f 

0 


00372 

740002 


CML 

/LINK « 

1 


00373 

744000 


CLL 

/LINK ■ 

0 


00374 

741400 


SZL 




00375 

740040 

£53 

HALT 

/ERRORl 

CLL failed TO CLEAR LINK 




/TEST 

CML 



! 

00376 

744000 


CLL 

/LINK « 

0 


00377 

740002 


CML 

/LINK ■ 

1 


00400 

740002 


CML 

/LINK • 

0 

) 

00401 

741400 


SZL 




00402 

740040 

E54 

HALT 

/ERRORl 

CML failed To set link 




/TEST 

CLL CML 




00403 

744000 


CLL 

/LINK « 

1 


00404 

740002 


CML 

/LINK » 

1 


00405 

744002 


CLLICML 

/LINK a 

1 


00406 

741400 


SZL 




00407 

741000 


SKP 




00410 

740040 

E55 

HALT 

.EJECT 

/ERRORl 

CLLICML failed TO SET LINK 
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BX8k 


BX8K 




/TEST 

CLL CML 

00411 

744000 


CLL 

00412 

740002 


CML 

00413 

744000 


CLL 

00414 

744002 


cllicml 

00415 

741400 


S2L 

00416 

741000 


SKP 

00417 

740040 

E56 

MALT 



/TEST 

SKP SHL 

00420 

744000 


CLL 

00421 

741400 


SKPISZL 

00422 

740040 

E57 

halt 



y 

/TEST 

S2L SNA 

00423 

750000 


CLA 

00424 

744002 


CLLICML 

00425 

741600 


SZLISNA 

00426 

741000 


SKP 

00427 

740040 

E58 

halt 



/TEST 

szl spa 

00430 

750000 


CUA 

00431 

744002 


CLLICML 

00432 

741500 


SZLISPA 

00433 

741000 


SKP 

00434 

740040 

£59 

HALT 



/TEST 

CLA CLL CML 

00435 

754002 


claiculicml 

00436 

741400 


SZL 

00437 

741000 


SKP 

00440 

740040 

E60 

HALT 



/TEST 

CLA CLL CML 

00441 

754002 


CLAICLLICML 

00442 

740200 


SZA 

00443 

740040 

E61 

HALT 



/TEST 

SNL SZA 

00444 

754002 


CLAICLLICML 

00445 

740600 


SNLtSZA 

00446 

740040 

E62 

halt 



/TEST 

SNL SMA 

00447 

754002 


CLAICLLICML 

00450 

740500 


SNLISMA 

00451 

740040 

£63 

HALT 

.EJECT 


/link = 0 

/LINK s 1 
/LINK S 7 
/link = 1 

/ERRORl CLlJCML FAILED TO SET LINK 
/link » e 

/ERRORl SKPJSHL FAILED TO SKIP 

/AC « 0 
/LINK s 1 

/ERRORl SZLISNA SKIPPED 

/AC s 0 
/LINK » 1 

/ERRORl SZLISPA SKIPPED 

/AC « 0, link ■ 1 

/ERRORl LINK NOT 1 

/AC » 0f link « 1 
/ERRORl AC NOT 0 

/AC » 0# link • 1 

/ERRORl SNLJSHA FAILED TO SKIP 

/AC * 0| link a 1 

/ERROR} SNLISMA FAILED TO SKIP 



1 


BX8k 




BX8K 


00452 

754002 

/TEST 

SNL SZA Sma 
CLAICLLICML 

00453 

740700 


SNLJS2AISMA 

00454 

740040 

E64 

/ 

/TEST 

HALT 

00459 

750000 

CMA Cla 

CLA 

00456 

740001 


CMA 

00457 

750000 


CLA 

00460 

741200 


SNA 

00461 

741000 


SKP 

00462 

740040 

E65 

HALT 

00463 

750000 

/TEST 

CMA SPA 

CLA 

00464 

740001 


CMA 

00469 

741100 


SPA 

00466 

741000 


SKP 

00467 

740040 

E66 

malt 

00470 

750000 

/ 

/TEST 

CMA SNA 

CLA 

00471 

740001 


CMA 

00472 

741200 


SNA 

00473 

740040 

E67 

MALT 

00474 

750000 

/ 

/TEST 

CMA 

CLA 

00479 

740001 


CMA 

00476 

740001 


CMA 

00477 

741200 


SNA 

00900 

741000 


SKP 

00901 

740040 

E66 

MALT 

00902 

750001 

/ 

/TEST 

CLA CMA 
CLAICMA 

00903 

741200 


SNA 

00904 

740040 

E69 

MALT 


.EJECT 


/AC 8 0, LIMX = 1 

/ERROR? SNU;S2A:?Ma tailed T.^ skip 


/AC * 0 
/AC * ONES 


/ERROR? cla Tailed tc clear ac 


/AC > 0 
/AC * ONES 


/ERROR? SPA SKIPPED OR 
/CHA failed to set AC BIT 0 


/AC 8 0 
/AC ■ ONES 

/ERROR? SNA failed TO SKIP 

/OR CMA Tailed to set any ac bit 


/AC 8 0 
/AC ■ ONES 
/AC « 0 


/ERROR? CMA tailed TO 
/COMPLEMENT AC TO 0 


/AC • ONES 

/ERROR? CLAICMA TAILED TO 
/SET ANY AC BIT 



12 

BX8k 

BxaK 





/TEST 

S2A 


?0505 

750001 


CUA’CMA 

/AC s ONES 

00506 

740200 


SZA 


00507 

741000 


SKP 


00510 

740040 

r70 

HALT 

/ERRORl S2A SKIPPED 



/TEST 

SMA 


00511 

750001 


clajcma 

/AC » ONES 

00512 

740100 


SHA 


00513 

740040 

E71 

HALT 

/ERROR! SmA tailed TC SKIP 



y 

/TEST 

SKP SPA 


00514 

750001 


claicma 

/AC a ONES 

00515 

741100 


SKPISPA 


00516 

741000 


SKP 


00517 

740040 

E72 

HALT 

/ERRORI SKPJSPA skipped 



/TEST 

SKP SNA 


00520 

750001 


CLAiCHA 

/AC ■ ONES 

00521 

741200 


SKPiSNA 


00522 

740040 

E73 

malt 

/ERRORI SKPISNA failed TO SKIP 



/TEST 

SPA SNA 


00523 

750001 


ClpAtCMA 

/AC a ONES 

00524 

741300 


SPA1SMA 


00525 

741000 


SKP 


00526 

740040 

E74 

HALT 

/ERRORI SPAJSNA SKIPPED 



/TEST 

SKP SNA SPA 


00527 

754003 


CtASCMAjCLtlCML 

/AC « ONES# link i 1 

00530 

741700 


SNAISPAISKPISZL 


00531 

741000 


SKP 


00532 

740040 

E75 

HALT 

/ERRORI SKPJSNAisPAlSZL SKIPPED 



/TEST 

SHAISZA 


00533 

750001 


CLAJCMA 

/AC ■ ONES 

00534 

740300 


SMAIS2A 

/ERRORI SMAISZA FAILED TO SKIP 

00535 

740040 

E76 

halt 



/TESt 

SHA SZA SNL 


00536 

754003 


CLAICMAJCLLICML 

/AC f ONE, LINK . 1 

00537 

740700 


SMAJSZAJSNL 


00540 

740040 

E77 

HALT 

/ERRORI SMAISZAjsNL 



y 

/TEST 

NOP 


00541 

750001 


CLAJCMA 

/AC a ONES 

00542 

740000 


NOP 


00543 

740001 


CMA 

/AC a 0 

00544 

740200 


SZA 


00545 

740040 

E78 

halt 

/ERRORI NOP ALTEpED THE AC 


/ 


EJECT 



PAGC "13 


0X8K 


BX8K 




/TEST 

NOP 




?!0546 

750000 


CUA 

/AC « 0 



0054 7 

740000 


NOP 




00550 

740200 


S2A 




00551 

740040 

E79 

malt 

/ERRORJ 

NOP 

set aN AC BIT 



y 

/TEST 

NOP 




00552 

744002 


CLUSCML 

/link = 

1 


00553 

740000 


NOP 




00554 

740400 


SNL 




00555 

740040 

£80 

HALT 

/ERRORJ 

NQP 

cleared the link 



/TEST 

NOP 




00556 

744000 


CLl 

/LINK = 

0 


00557 

740000 


NOP 




00560 

741400 


SHU 




00561 

740040 

E81 

halt 

/ERRORJ 

NOP 

SET the link 



/TEST 

SHA Cma 




00562 

750000 


CLA 

/AC ■ 0 



00563 

740201 


SHAf CMA 

/AC • ONES 


00564 

740040 

£82 

HALT 

/ERRORS 

SZA 

failed to skip 



/TEST 

SZA CLA 




00565 

750001 


CLAICMA 

/AC » ONES 


00566 

750200 


SHAJCLA 

/AC * 0 



00567 

741000 


SKP 



SKIPPED 

00570 

740040 

£83 

HALT 

/ERRORl 

SZA 



/TEST 

SZL CML 




00571 

744000 


CLL 

/LINK » 

0 


00572 

741402 


SZLICHU 




00573 

740040 

£84 

halt 

/ERRORl 

SZL 

failed to SKIP 



/TEST 

SZL CLL 




00574 

744002 


CLL!CML 

/LINK * 

1 


00575 

745400 


SZLICLL 




00576 

741000 


SKP 



SKIPPED 

00577 

740040 

£85 

HALT 

/ERRORl 

SZL 



/TEST 

SKP SZL Spa la CLL 



00600 

754003 


CLAlCMAlCLLlCML 

/AC ■ ONES. 

link ■ 1 

00601 

755500 


SKP{SZL!SPAICLA?CLL 

/AC 

» 0, link » 0 

00602 

741000 


SKP 




00603 

740040 

£86 

halt 

/ERRORl 

SkPISZL’SPA skipped 


.EJECT 
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BX8K 





/TEST 

S2A Snjl CmA CUL 


00604 

754002 


CLAJCLLICML 

/AC s 0» Ll^K s 1 

00605 

744601 


S2A!SM!CHAlCLL 

/ACsONESi LIMK 87 

00606 

740040 

E87 

/ 

/TEST 

MALT 

/ERROR. S?A!SNL TAILED TO Skp 



CLA Skp 


00607 

750001 


CLA JCMA 

/AC 8 ONES 

00610 

751000 


SKPJCLA 

/AC 8 0 

00611 

740000 


MOP 


00612 

740200 


S2A 


00613 

740040 

E88 

halt 

/ERROR. ClA failed TO ClEAR aC 



/TEST 

SKP CLA CHA 


00614 

750000 


CLA 

/AC * 0 

00615 

751001 


SKPJCLAJCMA 

/AC 8 ONES 

00616 

740000 


NOP 


00617 

740001 


gma 


00620 

740200 


S2A 


00621 

740040 

E89 

halt 

/ERROR. CLAJCMA FAILED TO 



/ 

/TEST 

SKP CLL CML 

/COMPLEMENT THE AC 

00622 

744000 


CLL 

/LINK * 0 

00623 

745002 


SKPtCLLJCML 

/LINK * 1 

00624 

740000 


NOP 


00625 

740400 


SNL 


00626 

740040 

E90 

HALT 

/ERROR, CLLICML FALEC Tq SET THE LINK 



/TEST 

CMA Series 


00627 

750001 


CLAICMA 

/AC ■ ONES 

00630 

740001 


CMA 

/AC « 0 

00631 

740001 


CMA 

/AC « ONES 

00632 

740001 


CHA 

/AC ■ 0 

00633 

740001 


CMA 

/AC ■ ONES 

00634 

740001 


CMA 

/AC • 0 

00635 

740200 


S2A 


00636 

740040 

E91 

HALT 

/ERROR, AC NOT 0 CMA FAILED 



/TEST 

CML Series 


00637 

744002 


CLL l CML 

/LINK s 1 

00640 

740002 


CML 

/LINK * 0 

00641 

740002 


CML 

/LINK « 1 

00642 

740002 


CML 

/LINK « 0 

00643 

740002 


CML 

/LINK = 1 

00644 

740002 


CML 

/LINK * 0 

00645 

741400 


S2L 


00646 

740040 

£92 

HALT 

/ERROR. LINK NOT 0 CML FAILEO 

00647 

447517 

/ 

|SH W0RK3 

/CHECK done looping 

00650 

600260 


jMP operat 

/LOOP 

00651 

106336 


JMS genran 

/GET NO, FOR NtxT LOOP 

00652 

106362 


JMS CKNO 

.eject 




PaC^ 


K3 

BX0K 

BX8K 




/ 

/TEST 

RAR SERIES AND LINK 

00653 

754002 

RTAT 

CLAJCLL5CHL /AC = 0, Ll^^X * 1 

00654 

740020 


RAR 

00655 

740020 


RAR 

00656 

740020 


RAR 

00657 

740020 


RAR 

00660 

740020 


RAR 

00661 

740020 


RAR 

00662 

740020 


RAR 

00663 

740020 


RAR 

00664 

740020 


RAR 

00665 

740020 


RAR 

00666 

740020 


RAR 

00667 

740020 


RAR 

00670 

740020 


RAR 

00671 

740020 


RAR 

00672 

740020 


RAR 

00673 

740020 


PAR 

00674 

740020 


RAR 

00675 

740020 


RAR 

00676 

741600 


SMAJS2L 

00677 

740040 

C113 

halt /ERRORl AC BIT 17 NO 




/after rotate Series 




.eject 



16 

BX8K 

BX8K 






/TEST 

RAL series and 

link 


00700 

754002 


clmcllichl 

/AC « 0» link » 1 


00701 

740010 


RAt 



00702 

7 40010 


RAL 



00703 

740010 


ral 



00704 

740010 


ral 



00705 

740010 


ral 



00706 

740010 


ral 



00707 

740010 


ral 



00710 

740010 


ral 



00711 

740010 


RAL 



00712 

740010 


RAL 



00713 

740010 


ral 



00714 

740010 


RAL 



00715 

740010 


RAL 



00716 

740010 


ral 



00717 

740010 


RAL 



00720 

740010 


RAL 



00721 

740010 


ral 



00722 

740010 


PAL 



00723 

741600 


SNA!S2L 



00724 

740040 

E114 

HALT 

/ERROR! AC BIT 0 NOT It OR 

LINK X 1 





/after ROTATE SERIES 




/TEST 

RTL SERIES AND 

link 


00725 

754002 


claicllscml 

/AC * 01 link • 1 


00726 

742010 


RTL 



00727 

742010 


rtl 



00730 

742010 


rtl 



00731 

742010 


«tl 



00732 

742010 


RTL 



00733 

742010 


RTL 



00734 

742010 


rtl 



00735 

742010 


rtl 



00736 

742010 


rtl 



00737 

741600 


SNAI82L 



00740 

740040 

E115 

halt 

/ERROR! AC bit 0 NOT It OR 

LINK « 1 





/AFTER ROTATE SERIES 




/ 

/TEST 

RTR SERIES AND 

link 


00741 

754002 


CIAICLLICML 

/AC • 0i LINK » 1 


00742 

742020 


RTR 



00743 

742020 


RTR 



00744 

742020 


RTR 



00745 

742020 


RTR 



00746 

742020 


RTR 



00747 

742020 


RTR 



00750 

742020 


RTR 



00751 

742020 


RTR 



00752 

742020 


RTR 



00753 

741600 


SNAISZL 



00754 

740040 

E116 

HALT 

/ERROR! AC BIT 17 NOT 1, CR 

LINK X 


/AFTER rotate series 


EJECT 



^17 

BX8K 

Bx8K 






/PDP- 

15 BASIC EXERCISER 

• TAPE 

2 



/RAR 

series 



00755 

754001 

RTSS 

CIAJCMA’CLL 

/AC s 

ONES# link s 0 

00756 

740020 


RARi rar; 

RAR) 

RAR 

00757 

740020 





00760 

740020 





00761 

740020 





00762 

740020 


RAR| RARJ 

RAR; 

rar 

00763 

740020 





00764 

740020 





00765 

740020 





00766 

740020 


RAR) RARj 

RAR) 

rar 

00767 

740020 





00770 

740020 





00771 

740020 





00772 

740020 


RAR) RAR) 

RAR) 

RAR 

00773 

740020 





00774 

740020 





00775 

740020 





00776 

740020 


RAR) RAR 



00777 

740020 





01000 

740003 


CMAICMU 

/AC p 

00000 I 1 LINK m 0 

01001 

741600 


SNAISZL 



01002 

740040 

E140 

HALT 

/ERROR) AC BIT 17 NOT 1, OR LINK 



/ 


/AFTER 

ROTATE SERIES 



/ 

/TEST 

RAL SERIES TEST 



01003 

754001 


CLAICMAICLU 

/AC « 

ONES# link • 0 

01004 

740010 


RAL) RALI 

RAL) 

RAL 

01005 

740010 





01006 

740010 





01007 

740010 





01010 

740010 


RAL) RAL) 

RAL) 

RAL 

01011 

740010 





01012 

740010 





01013 

740010 





01014 

740010 


RAL) RAL) 

RALI 

RAL 

01015 

740010 





01016 

740010 





01017 

740010 





01020 

740010 


RAL) RAL) 

RAL) 

RAL 

01021 

740010 





01022 

740010 





01023 

740010 





01024 

740010 


RAL) RAL) 

CML 

/AC « 377777, LINK = ^ 

01025 

740010 





01026 

740002 





01027 

741500 


SPA’SHL 



01030 

740040 

E141 

halt 

/ERROR; AC BIT 3 NOT 0, OR LINK = 


/AFTER ROTATE Sf^US 


.E^ECT 



PAGE 
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BX8k 

BX8K 






/TEST 

RTL SERIES 



01031 

754001 


clajcmmcll 

/AC * 

ONESi link ■ e 

01032 

742010 


RTUJ RTtI 

RTL) 

RTL 

01033 

742010 





01034 

742010 





01035 

742010 





01036 

742010 


RTLJ RTtJ 

RTL J 

RTL 

01037 

742010 





01040 

742010 





01041 

742010 





01042 

742010 


RTL) CML 

/LIMX 

s 0 

01043 

740002 





01044 

741500 


SPAISHL 



01045 

740040 

E142 

MALT 

/ERROR) AC BIT 0 NOT 0i 



/ 

/TEST 

RTR SERIES 

/after 

ROTATE Series 

01046 

754001 


CLA5C«A»CLL 

/AC s 

ONESi link » 0 

01047 

742020 


RTR) RTR) 

RTR) 

RTR 

01050 

742020 





01051 

742020 





01032 

742020 





01053 

742020 


RTRi RTR) 

RTR) 

RTR 

01054 

742020 





01055 

742020 





01056 

742020 





01057 

742020 


RTR 



01060 

740003 


cmajcml 

/AC ■ 

000001, link i 0 

01061 

741600 


SNA5S2L 



01062 

740040 

E143 

HALT 

/ERROR) AC BIT 17 NOT 1 




/AFTER 

ROTATE SERIES 


EJECT 
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6X8K 


BX8K 


/ 




/TEST 

RALISNA 

01063 

754002 


CLA'CLLICML 

01064 

741210 


RAL’SNA 

01065 

741000 


SKP 

01066 

740040 

E162 

HALT 



/TEST 

rarisna 

01067 

754002 


CLAICLLJCHL 

01070 

741220 


RARjSNA 

01071 

741000 


SKP 

01072 

740040 

E163 

HALT 



/TEST 

rtl"Sna 

01073 

754002 


claicllicml 

01074 

743210 


RTLSSNA 

01075 

741000 


SKP 

01076 

740040 

E164 

WALT 



/TEST 

RTRf SNA 

01077 

754002 


claicllicml 

01100 

743220 


RTRISNA 

01101 

741000 


SKP 

01102 

740040 

E165 

halt 



/TEST 

RALISNA 

01103 

754002 


claicllicml 

01104 

740020 


RAR 

01105 

741210 


SNAIRAL 

01106 

740040 

E166 

HALT 



/TEST 

RARISNA 

01107 

754002 


claicllicml 

01110 

740010 


RAL 

01111 

741220 


SNAIRAR 

01112 

740040 

E167 

halt 


.EJECT 


/AC s 0, = 3 

/ERROR; SNA SKIPPED 

/AC a 2, link a 1 

/ERROR; SNA SKIPPED 

/AC ■ 0. LINK 8 1 

/ERROR; SNA SKIPPED 

/AC a Z, link s 1 

/ERROR; SNA SKIPPED 

/AC « 01 LINK ■ 1 
/AC 3 400000 

/ERROR. SNA failed TO SKIP 

/AC ■ 0» LINK 9 1 
/AC * 000001 

/ERROR; SNA failed TO SKIP 
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BX8k 

BXSK 




/TEST RTLJSNA 


01113 

754002 

CLA'CLLtCMU 

/AC « 01 link a 1 

01114 

742020 

RTR 

/AC a 200000 

01115 

743210 

SMA’RTL 


01116 

740040 

E168 halt 

/ERROR) SNA failed TO SKIP 



/TEST RTRISNA 


01117 

754002 

clajclljcml 

/AC a 0. link s 1 

01120 

742010 

rtl 


01121 

743220 

snajrtr 


01122 

740040 

E169 HALT 

/ERROR) SNA Failed to skip 



/ 

/TEST CLLJSNAJRAR 


01123 

754001 

CLAtCMAJCLL 

/AC a ONESi LINK f 0 

01124 

751220 

CLA(SNA!RAR 


01125 

740040 

E170 HALT 

/ERROR) SNA failed TO SKIP 

01126 

447517 

ISZ W0RK3 

.. /CHECK done looping 

01127 

600653 

JMP RTAT 

/LOOP 

01130 

106336 

JMS GENRAN 

/get no for next loop 

01131 

106362 

JMS CK^O 




.EJECT 




1 


BX6K 


BX8K 



/ 

/TEST LAW 760000 


01132 

■754000 

TLAW 

CLA'CLL 

01133 

760000 


law 00Z00 

01134 

740010 


RAL 

01135 

744400 


SNLICLL 

01136 

7 40040 

E206 

HALT 

01137 

740010 


RAL 

01140 

744400 


SNLICLL 

01141 

740040 

E207 

HALT 

01142 

740010 


RAL 

01143 

744400 


SNLICLL 

01144 

740040 

E208 

HALT 

01145 

740010 


RAL 

01146 

744400 


SNLICLL 

01147 

740040 

E209 

HALT 

01150 

740010 


RAL 

01151 

744400 


SNLICLL 

01152 

740040 

C210 

HALT 

01153 

740200 


SEA 

01154 

740040 

E211 

HALT 


/ 

/TEST LAW 760000, AC » 


01155 

754001 


CLAICMASCLU 

01156 

760000 


law 00000 

01157 

741400 


SEL 

01160 

740040 

E212 

HALT 

01161 

740010 


RAL 

01162 

744400 


SNLICLL 

01163 

740040 

£213 

HALT 

01164 

740010 


RAL 

01165 

744400 


SNLICLL 

01166 

740040 

C214 

halt 

01167 

740010 

/ 

RAL 

01170 

744400 


SNLICLL 

01171 

740040 

E215 

HALT 

01172 

740010 


RAL 

01173 

744400 


SNLICLL 

01174 

740040 

E216 

HALT 

01175 

740010 


RAL 

01176 

744400 


SNLICLL 

01177 

740040 

E217 

HALT 

01200 

740200 


SZA 

01201 

740040 

E218 

HALT 


/AC s 0 

/AC s 760000 
/AC = 740000 

/link s 1 

/ERRORI AC NOT 0 NOT A 1 , 

/law 760000 failed 
/AC * 700000 

/link s 1 

/ERROR; AC BIT l NOT A 1 
/law 760000 failed 
/AC 8 600000 
/link s 1 

/error; AC BIT 2 NOT A 1 
/law 760000 failed 
/AC * 400000 

/link * 1 

/ERROR; AC BIT 3 NOT A 1 
/law 760000 failed 
/AC B 000000 
/LINK « 1 

/ERROR; AC BIT 4 NOT A 1 
/law 760000 failed 
/AC B 000000 

/ERROR; AC BITS 5»17 NOT 0 
/law 760000 failed 

ONES 

/AC B ONESi link « 0 
/AC B 760000 

/ERROR; link not A 0, LAW SET LINK 
/AC B 740000 
/link b X 

/ERROR; AC BIT 0 NOT A 1, 

/law 760000 failed 
/AC B 700000 
/link ■ 1 

/ERROR; AC BIT 1 NOT A 1 
/law 760000 failed 

/AC B 600000 
/LINK » I 

/ERROR; AC BIT 2 NOT A 1 
/law 760000 failed 
/AC B 400000 

/link » I 

/ERROR; AC BIT 3 NOT A 1 , LAw^ 76^000 FaREC 
/AC « 000000 
/link s I 

/ERROR; AC BIT 4 NOT A 1 , LA;^ 7600Z0 FAREf: 
/AC « 000000 

/ERROR; AC BITS ^>^17 NOT ^ 

/law 760000 failed 
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bx8k 


BX8K 


EJECT 
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BXSk 

BX8K 





/TEST 

law 777777, ACs0, 

L«e 

01202 

754000 


claicll 

/AC * 0 

01203 

777777 


law 17777 

/AC * 76P'20e 

01204 

740001 


CMA 


01205 

740200 


S2A 


01206 

740040 

E219 

HALT 

/ERRCR, AC NOT 0 





/law 17777 Failed 

01207 

741400 


SiL 

/AC 8 400760 

01210 

740040 

E220 

halt 

/link Not ? 



/TEST 

law 777777, AC80, 

1=1 

01211 

754002 


CLAlCLUtCML 

/AC t 0 

01212 

777777 


law 17777 


01213 

740001 


CMA 


01214 

740200 


S2A 


01215 

740040 

E221 

HALT 

/ERROR, link not 0 

01216 

740400 


SNL 


01217 

740040 

E222 

halt 

/ERROR. LINK NOT 0 



/TEST 

law 777777, ACil, 

L»0 

01220 

754001 


CLAICHAICLL 

/AC s 0 

01221 

777777 


law 17777 


01222 

740001 


CMA 


01223 

740200 


S2A 


01224 

740040 

E223 

halt 

/ERROR. AC NOT 0 

01225 

741400 


S2L 

/AC s 100760 

01226 

740040 

E224 

HALT 

/ERROR, link NOT 0 


.eject 



Page 2a 


BX8k BX6K 




/TEST 

law 777777, ACsl, 

L«1 


?1227 

754003 


C1.A!CMA!CLL!CML 

/AC s 0 


21230 

777777 


law 17777 



21231 

740001 


CMA 



01232 

740200 


SZA 



01233 

740040 

E225 

halt 

/ERROR, 

AC NOT P 

01234 

740400 


SNL 



01235 

740040 

E226 

halt 

/ERROR» 

LI^K NOT 1 

01236 

447517 


ISZ W0RK3 


/CHECK OO-NiE looping 

01237 

601132 


JHP TUAW 


/LOOP 

01240 

106336 


JMS genran 


/GET NO, FOR NEXT LOOP 

01241 

106362 


JMS CK^O 






.EJECT 





012A2 

7S4000 

/TEST 

/ 

LACK 

01243 

207411 


01244 

740200 


01245 

740040 

E258 

01246 

741400 


01247 

740040 

E259 

1 

01250 

754002 

f 

01251 

207411 


01252 

740200 


01253 

740040 

£260 

01254 

740400 


01255 

740040 

E261 

j 

01256 

754001 

f 

01257 

207411 


01260 

740200 


01261 

740040 

E262 

01262 

741400 


01263 

740040 

E263 

i 

01264 

754003 

/ 

01265 

207411 


01266 

740200 


01267 

740040 

C264 

01270 

740400 


01271 

740040 

E265 


/ 

/tEST 


/ 


01272 

7S4000 


01273 

207454 


01274 

740001 


01275 

740200 


01276 

740040 

£266 

01277 

741400 


01S00 

740040 

E267 

i 

01301 

754002 

/ 

01302 

207454 


01303 

740001 


01304 

740200 


01305 

740040 

E26S 

01306 

740400 


01307 

740040 

£269 


lac 0»s 


CLA'CLL 

/AC s 0 

LAC K0 

/000e00 

SZA 


halt 

/ERROR. 

S2L 


halt 

/ERROR; 

CLAICLLJCML 

/AC 8 0 

lac K0 


S2A 


halt 

/ERROR; 

snl 


halt 

/ERROR. 

CLAICHAICLL 

/AC 8 1 

lac K0 


S2A 


halt 

/ERROR. 

S2L 


halt 

/ERROR. 

CLAICMAICLLI 

ICML /AC 8 1 

lac K0 


S2A 


HALT 

/ERROR. 

SNL 


HALT 

/ERROR. 

LAC 1»S 


CLAICLL 

/AC 8 0 

LAC K7S 

/777777 

CMA 


S2A 


HALT 

/ERROR. 

S2L 


HALT 

/ERROR. 

CLAICLLICML 

/AC 3 0 

lac K7S 


CMA 


S2A 


HALT 

/ERROR, 

snl 


halt 

/ERROR. 

.EJECT 



, LIMK * ? 

AC \!0T ? after LAC k? 
LI^K NOT 0 after lac 

# LINK = 1 

AC NOT 0 

link not 1 AFTER LAC K0 
*S# LIN s 0 

AC not ? after lac K0 
link Not 0 after lac k0 

*S# LINK s 1 
AC NOT 0 

link not 1 

# LINK ■ 0 

AC NOT 0 lac K7S FAILED 
LINK NOT 0 AFTER LAC K7S 
» LINK » 1 

AC NOT 0 

link not 1 AFTER lac K7S 



6E 26 

bksk 

BX8K 


01310 

754001 


CLA’CHAICLL 

01311 

207454 


LAC K7S 

01312 

740001 


CMA 

01313 

740200 


S2A 

01314 

740040 

E270 

HALT 

01315 

741400 


SZL 

01316 

740040 

E271 

HALT 

01317 

754003 

/ 

CLA’CMA'CLL 

01320 

207454 


lac k7S 

01321 

740001 


CMA 

01322 

740200 


SZA 

01323 

740040 

E272 

HALT 

01324 

740400 


SNL 

01325 

740040 

j 

HALT 

01326 

750000 

/ 

CLA 

01327 

207467 


LAC K101 

01330 

207466 


LAC K010 

01331 

207454 


lac K7S 

01332 

740001 


CHA 

01333 

740200 


SZA 

01334 

740040 

E273 

HALT 

01335 

447517 


ISZ WORKS 

01336 

601242 


JMP lack 

01337 

106336 


JMS genran 

01340 

106362 


JMS CKNO 



/TEST 

M 

AND 

01341 

750000 

f 

andac 

CLA 

01342 

507411 


AND K0 

01343 

7^0200 


SZA 

01344 

740040 

E274 

HALT 

01345 

750001 

/ 

CLAJCMA 

01346 

507411 


AND K0 

01347 

740200 


SZA 

01S50 

740040 

E275 

y 

HALT 

01351 

750000 

/ 

CLA 

01352 

507454 


AND K7S 

01353 

740200 


SZA 

01354 

740040 

E276 

y 

HALT 

01355 

750001 

/ 

CLA J CMA 

01356 

507454 


AND K7S 

01357 

740001 


CMA 

01360 

740200 


SZA 

01361 

740040 

E277 

MALT 


.EJECT 


/AC « Its, LINK « P! 

/ERROR, AC NOT e, lac KTS FAILED 
/ERROR. LINK NOT 1 after Lac K7S 
CML, /AC 5 1»S, LINK B 1 

/ERROR. AC NOT ? 

/ERROR. LINK NOT 1 aFT^R LAC K7S 

/AC B 525252 
/AC B 252525 
/AC B 777777 

/ERROR. AC NOT 0 

/CHECK for done looping 
/LOOP 

/GET NO, FOR LOOP 

/AC B 0 

/ERROR, AC NOT Z AFTER AND K? 

/AC * I'S 

/ERROR, AC NOT 0 AFTER AND KF 
/AC a 0 

/error, AC NOT 0 AFTER AND K7S 
/AC 3 1»S 

/ERROR, AC NOT C AFTFp aND K7S 



f»AGE 7.7 BX8K BX8K 

/seouentiau and 


/ 


01362 

754002 


CLA!CLL!CHL 

/AC * 0» link = 1 




01363 

507411 


A^D K0 





01364 

507454 


A^O k7S 





01365 

507467 


and K121 





01366 

507466 


A^O K010 





01367 

740001 


CMA 





01370 

507411 


AND K0 





01371 

507454 


AMD k7S 





01372 

507467 


AKO KlCl 





01373 

507466 


AND K010 





01374 

740200 


SHA 





01375 

740040 

E278 

HALT 

/ERROR, AC not 7 




01376 

740400 


snl 





01377 

740040 

E279 

halt 

/ERROR, link Not 

1 



01400 

447517 


ISE W0RK3 

/CHECK for 

! DONE 

LOOPING 

01401 

601341 


JMP andac 

/LOOP 




01402 

106336 


JMS genran 

/GET NO, FOR NEXT 

LOOP 



01403 

106362 


JMS CKNO 







/TEST 

i 

XOR 





01404 

750000 

f 

XORAC 

CLA 

/AC « 0 




01405 

247411 


XOR K0 





01406 

740200 


SZA 





01407 

740040 

E280 

halt 

/ERROR, AC not ? 

after 

XCR 

Ke 

01410 

750001 

/ 

CLAfCMA 

/AC » i»S 




01411 

247411 


XOR K0 





01412 

740001 


CMA 





01413 

740200 


SZA 





01414 

740040 

C281 

i 

HALT 

/ERROR. AC NOT p 




01415 

750000 

/ 

CLA 

/AC R 0 




01416 

247454 


XOR K7S 

miin 




01417 

740001 


CMA 





01420 

740200 


SZA 





01421 

740040 

E282 

HALT 

/ERROR. AC not p 

after 

XOR 

K7S 

01422 

750001 

/ 

CLAlCMA 

/AC s 1*S 




01423 

247454 


XOR K7S 





01424 

740200 


SZA 





01425 

740040 

E283 

HALT 

/ERROR, AC not (? 

after 

XOR 

K7S 


.EJECT 
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BX8K 





/sequential xor 

i 


?1426 

750000 

f 

CLA 

/AC 3 0 

01427 

247467 


XOR K101 

/525252 

01430 

247466 


XOR K010 

/252525 

01431 

247411 


XOR K0 

/000000 

01432 

247454 


XOR K7S 

/777777 

01433 

247466 


XOR K010 


01434 

247467 


XOR K101 


01435 

247467 


XOR K101 


01436 

247466 


XOR K010 


01437 

740200 


SZA 


01440 

740040 

E284 

halt 

/ERROR. AC NOT 0 

01441 

447517 

/ 

ISH W0RK3 

/CHECK for DONE LOOPING 

01442 

601404 


JMP XORAC 

/LOOP 

01443 

106336 


JMS GENRAN 

/GET NO, FOR NEXT LOOP 

01444 

106362 


JMS CKNO 




/TEST 

y 

TAD 


01445 

754000 

/ 

TAOAC 

CLAJCLL 

/AC » 0, link » 0 

01446 

347411 


TAO K0 


01447 

740200 


SZA 


01450 

740040 

E285 

halt 

/ERROR, AC NOT pi AFTER TAD K0 

01451 

741400 


SZL 


01452 

740040 

E286 

y 

HALT 

/ERROR, link Not 0 AFTER TAD K0 

01453 

754001 

/ 

CLAlCMAiCLL 

/AC » 1«S, LINK . 0 

01454 

347411 


tad K0 


01455 

740001 


CMA 


01456 

740200 


SZA 


01457 

740040 

E287 

halt 

/ERROR, AC NOT 0 

01460 

741400 


SZL 


01461 

740040 

E288 

y 

HALT 

/ERROR, LINK NOT 0 

01462 

754002 

/ 

CLAICLLICML 

/AC ■ 0, LINK « 1 

01463 

347454 


TAD K7S 

/777777 

01464 

740001 


CMA 


01465 

740200 


SZA 


01466 

740040 

E289 

HALT 

/ERROR, tad K7S FAILED 

01467 

740400 


SNL 


01470 

740040 

£290 

HALT 

/ERROR, carry out OR OVERFLOW 





/FAILED, link not 0 

01471 

754001 

/ 

CLAICMAJCLL 

/AC « 1«S, LINK B 0 

01472 

347454 


TAD K7S 


01473 

740020 


RAR 


01474 

740001 


CMA 


01475 

740200 


SZA 


01476 

740040 

E291 

HALT 

/ERROR, TAD K7S TO 1»S FAILED 

01477 

741400 


SZL 


01500 

740040 

E292 

HALT 

/ERROR, LINK NOT 0 




.EJECT 
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/TEST 

j 

overflow 



tJiseii 

754001 

/ 

CLAICHAICLL /AC B 1»S, link « 

0 

01502 

347412 


TAD K1 

/000001 


01503 

740200 


S2A 



01504 

740040 

E293 

HALT 

/ERROR. AC \'OT 7 

after tad ki 

01505 

740400 


SNL 



01506 

740040 

E294 

HALT 

/ERROR, link not 

1 OVERFLOW failed 

01507 

754003 

/ 

CLA!CMA!CLL!CML /AC * 1»S, LINK e 

1 

01510 

347412 


TAD K1 



01511 

740200 


S2A 



01512 

740040 

E295 

HALT 

/ERROR. AC not 


01513 

741400 


SiJL 



01514 

740040 

E296 

HALT 

/ERROR, link NOT 0 

t overflow failed 



/TAD 

525252. AC a 

252525, LINK * 0 


01515 

754000 

/ 

CLAICLL 



01516 

347466 


TAD K010 



01517 

347467 


TAD K101 

/AC # 1»S 


01520 

740001 


CMA 



01521 

740200 


SZA 



01522 

740040 

E297 

HALT 

/ERROR, AC not 0 


01523 

741400 


SZL 



01524 

740040 

E298 

HALT 

/ERROR, link Not 

0 



/TAD 

252525. AC » 

525252^ LINK » 1 


01525 

754002 

/ 

CLAICLLSCML 


01526 

347467 


TAD K101 



01527 

347466 


TAD K010 

/AC » l»s 


01530 

740001 


CMA 



01531 

740200 


SZA 



01532 

740040 

C299 

HALT 

/ERROR, AC not 0 


01533 

740400 


SNL 



01534 

740040 

E300 

j 

HALT 

/ERROR, link not 

0 



/sequential lac. 

TAD. XOR 


01535 

754000 


CLAICLL 

/AC • 0. link ■ 0 


01536 

207466 


lac K010 



01537 

347467 


TAD K101 

/AC B Its 


01540 

247466 


XOR K010 



01541 

347466 


TAD K010 

/AC « 1»S 


01542 

347412 


TAD K1 



01543 

740400 


SNL 




.EJECT 



PAGE 30 

bxbk 
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01544 

740040 

E301 

halt 

/ERROR, link NOT 1 


01545 

207467 


lac K101 



01546 

247454 


XOR k7S 



01547 

347467 


TAD K101 



01550 

247454 


XOR K7S 



01551 

740200 


S2A 



01552 

740040 

E302 

HALT 

/ERROR. AC not 0 


01553 

447517 


ISZ W0RK3 

/CHECK done looping 


01554 

601445 


JMP TADAC 

/LOOP 


01555 

106336 


JMS GENRAN 

/GET NO, FOR NEXT LOOP 


01556 

106362 

/ 

JMS CKNO 





/ 

/TEST 

ADO 





/TEST 

ADO KIS TO K6S, 

LINK e 0 


01557 

754000 

adoac 

claicll 

/AC « 0, link * 0 


01560 

307446 


add KlS 

/mill 


01561 

307453 


ADO k6S 

/666666 


01562 

740001 


CMA 

/AC ■ 0 


01563 

740200 


SZA 



01564 

740040 

E303 

HALT 

/ERRORl ADO KlS TO K6S 

FAILED 

01565 

741400 


SZL 



01566 

740040 

E304 

HALT 

/ERROR! LINK NOT A0 




/TEST 

ADD K2S To K5S, 

LINK s 0 


01567 

754000 


CUAICLL 

/AC . LINK s 0 


01570 

307447 


ADO K25 

/22222 


01571 

307452 


add k5S 

/555555 


01572 

740001 


CMA 

/AC • 0 


01573 

740200 


SZA 



01574 

740040 

E305 

HALT 

/ERRORl ADD K2S TO K5S 

FAILED 

01575 

741400 


SZL 



01576 

740040 

ES06 

HALT 

/ERRORl link NOT A 0 




/TEST 

ADD K3S TO K4S, 

LINK s 0 


01577 

754000 


CLAICLl 

/AC, LINK *0 


01600 

307450 


ADO K3S 

/33333 


01601 

307451 


ADD K4S 

/444444 


01602 

740001 


CMA 

/AC • 0 


01603 

740200 


SZA 



01604 

740040 

E307 

HALT 

/ERRORl ADO K3S TO K4S 

FAILED 

01605 

741400 


SZL 



01606 

740040 

E308 

HALT 

/ERRORl link NOT A0 




/TEST 

ADO K4S TO K3S, 

LINK » 0 


01607 

754000 


CLAJCLL 

/AC, LINK c0 


01610 

307451 


ADD k4S 

/444444 


01611 

307450 


ADD k3S 

/333333 


01612 

740001 


CMA 

/AC ■ 0 


01613 

740200 


SZA 



01614 

740040 

E309 

WALT 

/ERROR! and K4S TO K3S 

FAILED 

01615 

741400 


S2L 



01616 

740040 

E310 

HALT 

/ERROR! LINK NOT A0 





.eject 
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/TEST 

ADD K5S To 

Ui 

CM 

LINK s 0 


0161? 

754000 


CLAtCLL 


/AC, LINK s 0 


01622 

307452 


ADD k5S 


/555555 


01621 

307447 


add K2S 


/222222 


01622 

740001 


CMA 


/AC s 0 


01623 

740200 


S2A 




01624 

740040 

E311 

HAUT 


/ERRORI add K5S TO K2S 

FAILED 

01625 

741400 


S2L 




01626 

740040 

E312 

j 

halt 


/ERROR? link not A0 




/ 

/TEST 

and K6S TO 

KlS, 

LINK 8 0 


01627 

754000 


CLAICLL 


/AC, link « 0 


01630 

307453 


ADO K6S 


/666666 


01631 

307446 


ADD KlS 


/mill 


01632 

740001 


CMA 


/AC 8 0 


01633 

740200 


S2A 




01634 

740040 

E313 

HALT 


/ERROR! add K6S TO KlS 

FAILEn 

01635 

741400 


S2L 




01636 

740040 

E314 

HALT 


/ERROR! link NOT A 0 




/ 

/TEST 

ADO K7S TO 

K0S, 

LINK 8 0 


01637 

754000 


CLAJCLL 


/AC, LINK 8 0 


01640 

307454 


add K7S 


/777777 


01641 

307411 


add K0 


/000000 


01642 

740001 


CMA 


/AC 8 0 


01643 

740200 


S2A 




01644 

740040 

E315 

HALT 


/ERROR? ado K7S TO KPS 

FAILED 

01645 

741400 


SZL 




01646 

740040 

E316 

HALT 


/ERROR? link not a 0 




/ 

/TEST 

ADO 252525, 

AC 

a 525252, LINK • 0 


01647 

754001 


CLL!CLAJCMA 

/AC 8 ONES* link 8 0 


01650 

207467 


lac K101 


/AC 8 525252 


01651 

307466 


ADD K010 


/AC 8 252525 


01652 

740001 


CMA 


/AC 8 0 


01653 

740200 


S2A 




01654 

740040 

E317 

halt 


/ERROR? add K 101 To K010 FAILED 

01655 

741400 


S2L 




01656 

740040 

E318 

halt 


/ERROR? link not A 0 




/TEST 

ADO 525252, 

AC 

s 252525, LINK * 0 


01657 

744000 


CLL 


/LINK 8 0 


01660 

207466 


LAC K0i0 


/AC 8 252525 


01661 

307467 


ADO K101 


/525252 


01662 

740001 


CMA 


/AC 8 0 


01663 

740200 


S2A 




01664 

740040 

E319 

halt 


/ERROR? ADO K 010 To KlCl FAILED 

01665 

741400 


S2L 




01666 

740040 

E320 

HALT 


/ERROR? LINK NOT A? 





.eject 
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/TEST 

ADO K7S# AC a 

01667 

754001 


claicmajcll 

01670 

207435 


lac K400K 

01671 

307454 


ADD k7S 

01672 

507454 


AND K7S 

01673 

247435 


XOR k400K 

01674 

740200 


S2A 

01675 

740040 

E321 

WALT 

01676 

741400 


SZL 

01677 

740040 

E322 

HALT 



/TEST 

AOO K200K, AC 

01700 

754001 


CLAICMAJCLL 

01701 

207441 


lac K200K 

01702 

307441 


AOO K200K 

01703 

507454 


AND k7S 

01704 

247435 


XOR K400K 

01705 

740200 


SZA 

01706 

740040 

E323 

HALT 

01707 

740400 


SNL 

01710 

740040 

E324 

HALT 



/TEST 

ADD K7S# AC ■ 

01711 

754003 


claicmajcll 

01712 

207343 


lac K100K 

01713 

307454 


ADO K75 

01714 

507454 


AND K7S 

01715 

247343 


XOR K100K 

01716 

740200 


S2A 

01717 

740040 

£325 

HALT 

01720 

740400 


SNL 

01721 

740040 

E326 

WALT 



/TEST 

add K7S# AC a 

01722 

754001 


CLAICMAJCLL 

01723 

207434 


LAC K40K 

01724 

307454 


ADO K7S 

01725 

507454 


AND k7S 

01726 

247434 


XOR K40K 

01727 

740200 


SZA 

01730 

740040 

E327 

HALT 

01731 

741400 


S2L 

01732 

740040 

E328 

HALT 


.EJECT 


K400Ki link e 0 

/AC a ONESi link ■ 0 
/AC s 40f»K 

/ONES 

/AC s 400K 
/AC a 0 

/ERROR} ADDf.0 To K400K TAILED 

/ERROR} link not a 0, carry failed 

K200K, LINK a 0 

/AC • ONES# LINK a 0 
/AC » 200K 
/ONES 

/AC ■ 400K 
/AC a 0 

/ERROR} ado K200K TO K200K FAILED 

/ERROR} link not a ONES, CARRY FARED 

Ki00K# LINK a 1 
JCML /AC a ones# LINK f 1 
/AC a 100K 

/ONES 

/AC a 100K 
/AC a 0 

/ERROR} ADO*0 To K100K FAILED 

/ERROR} link not A ONE# LINK RESET 

K40K, LINK a 0 

/AC a ONES# LINK f 0 
/AC a 40K 

/ONES 
/AC a 40K 

/AC a 0 

/ERROR} AOD ..0 To K40K FARED 
/ERROR} LINK NOT A ZERO, CARRY FARED 



wz 

BX8k 

BX8K 







/TEST add K7Si AC « 

K20K 

LINK ■ 0 



01733 

754001 

CLAICMAICLL 


/AC * ONES* link 

« 0 


01734 

207440 

LAC K20K 


/AC * 20K 



01735 

307454 

ADO K7S 


/ONES 



01736 

507454 

and k7S 


/AC * 20K 



01737 

247440 

XOR K20K 





01740 

740200 

S2A 


/AC » 0 



01741 

740040 

C329 MA1,T 


/ERRORJ ADD»0 To 

k20k Tailed 


01742 

741400 

S2i. 





01743 

740040 

E330 HALT 


/ERRORl link NOT 

A ZERO, carry 

Failed 



/TEST AND K7S# AC * 

K10H 

;; LINK • 0 



01744 

754001 

CLAICHAJCLL 


/AC ■ ONESi link 

a 0 


01745 

207437 

LAC K10K 


/AC a 10K 


01746 

307454 

ADO K7S 


/ONES 



01747 

507454 

AND k7S 


/AC a 10K 



01750 

247437 

XOR K10K 





01751 

740200 

S2A 


/AC a 0 



01752 

740040 

E331 HALT 


/ERRORl AOD*0 To 

K10K Tailed 


01753 

741400 

S2L 





01754 

740040 

E332 HALT 


/ERRORl link not 

A ZERO, carry 

Tailed 



/TEST ADO K7S# AC « 

K4Ki 

LINK a 0 



01755 

754001 

CLAICHAJCLL 


/AC a ONESi LINK 

P 0 


01756 

207430 

LAC K4K 


/AC a 4K 



01757 

307454 

ADO K7S 


/ONES 



01760 

507454 

AND k7S 


/AC a 4K 



01761 

247430 

XOR K4K 





01762 

740200 

S2A 


/AC a 0 



01763 

740040 

E333 halt 


/ERRORl AOD«»0 To 

K4K tailed 


01764 

741400 

SZL 





01765 

740040 

£334 HALT 


/ERRORl link NOT 

A ZERO, carry 

failed 



/TEST ADO K7S» AC ■ 

K2K, 

LINK a 0 



01766 

754001 

CLAJCMAJCLL 


/AC a ONES# LINK 

a 0 


01767 

207426 

lac k2K 


/AC a 2K 



01770 

307454 

ADO k7S 


/ONES 



01771 

507454 

AND K7S 


/AC a 2K 



01772 

247426 

XOR K2K 





01773 

740200 

S2A 


/AC a 0 



01774 

740040 

E335 HALT 


/ERRORl ADO«0 To 

K2K2 Tailed 


01775 

741400 

SZL 





01776 

740040 

E336 HALT 


/ERRORl link not 

a zero, carry 

failed 


.EJECT 



Pace 
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/TEST 

ADD K7Si AC • 

01777 

754001 


claicmaicll 

02000 

207424 


lac KlK 

02001 

307454 


ADO k7S 

02002 

507454 


AND K7S 

02003 

247424 


XOR KlK 

02004 

740200 


SZA 

02009 

740040 

E337 

halt 

02006 

741400 


Sll 

02007 

740040 

E338 

halt 



/TEST 

ADO K7Si AC P 

02010 

754001 


CLAJCHAICLL 

02011 

207425 


lac K400 

02012 

307454 


ADD K7S 

02013 

507454 


AND K7S 

02014 

247425 


XOR K400 

02015 

740200 


S2A 

02016 

740040 

E339 

HALT 

02017 

741400 


SZL 

02020 

740040 

E340 

MALT 

02021 

447517 


ISZ WORKS 

02022 

601557 


JMP ADOAC 

02023 

106336 


JMS GENRAN 

02024 

106362 


JMS CKNO 


.EJECT 


KlK, link s 0 

/AC » ONESi link » 0 

/AC » IK 
/ONES 
/AC s IK 

/AC • 0 

/ERRCRl AOO-0 To KlK FAILED 

/ERRORl link not A ZERO, CARRY FAILED 

K400; link t 0 

/AC » ONESi LINK » 0 
/AC » 400 

/ONES 
/AC « 400 

/AC P 0 

/ERRORl AOO »0 To K400 FAILED 

/ERRORl link not a ZERO, CARRY FAILED 
/CHECK done LOOPING 
/LOOP 

/GET NO. FOR NEXT LOOP 





/TEST 

ADO K7S» AC * 

k20» link s 0 



02025 

7540Z1 

addaci 

clajcmajcll 

/AC ■ ONESi link ■ 

0 


02026 

207421 


EAC K20 

/AC « 20 



02027 

307454 


add k7S 

/ONES 



02030 

507421 


AND K20 

/AC 8 20 



02031 

247421 


XOR k20 




02032 

740200 


S2A 

/AC « 0 



02033 

740040 

E347 

hai,t 

/ERRORl ADO TO 

K20 FAILED 


02034 

741400 


S2L 




02035 

740040 

E348 

halt 

/ERROR} link not a 

hero, carry 

failed 



/TEST 

ADD K7Si AC « 

K10, link 5 0 



02036 

754001 


CLAICMAICLU 

/AC * ONESi LINK ■ 

0 


02037 

207415 


LAC K10 

/AC ■ 10 



02040 

307454 


add k7S 

/ONES 



02041 

507454 


AND K7S 

/AC « 10 



02042 

247415 


XOR K10 




02043 

740200 


32A 

/AC B 0 



02044 

740040 

E349 

HALT 

/ERROR} ADO * 0 TO 

K10 FAILED 


02045 

741400 


SZL 




02046 

740040 

E350 

HALT 

/ERROR! link not A 

HERO Carry 

failed 



/TEST 

ADO K7Si AC » 

4# link ■ 0 



02047 

754001 


CLAJCMAICLL 

/AC * ONES# link f 

0 


02050 

207414 


LAC K4 

/AC ■ 4 



02051 

307454 


add k7S 

/ONES 



02052 

507454 


AND K7S 

/AC a 4 



02053 

247414 


XOR K4 




02054 

740200 


SZA 

/AC > 0 



02055 

740040 

E351 

HALT 

/ERROR} ADO -0 TO 1 

K4 failed 


02056 

741400 


SZL 




02057 

740040 

E352 

HALT 

/ERROR! link NOT A 

hero, carry 

failed 



/TEST 

ADO K7S# AC » 

k2i Link ■ 0 



02060 

754001 


clajcmajcll 

/AC • ONES# link ■ 

0 


02061 

207413 


LAC K2 

/AC 8 2 



02062 

307454 


ADD K7S 

/ONES 



02063 

507454 


AND k7S 

/AC « 2 



02064 

247413 


XOR k2 




02065 

740200 


SZA 

/AC « 0 



02066 

740040 

E353 

HALT 

/ERROR! ADO -0 TO 1 

K2 failed 


02067 

741400 


SZL 




02070 

740040 

E354 

HALT 

/ERROR! link NOT A 

HERO, CARRY 

Failed 



/TEST 

ADO K7Si AC ■ 

Kli link * 0 



02071 

754001 


CLAJCMAJCLL 

/AC • ONES# link * 

0 


02072 

207412 


lac ki 

/AC ■ 1 



02073 

307454 


ADO k7S 

/ONES 



02074 

507454 


AND K7S 

/AC « 1 



02075 

247412 


XOR Kl 




02076 

740200 


SZA 

/AC e 0 



02077 

740040 

E355 

HALT 

/ERROR! ADO ^0 TO 

Kl EaILEO 


02100 

741400 


SHL 




02101 

740040 

E356 

halt 

/ERROR} link not a 

HERD, carry 

Failed 


.EJECT 
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/TEST 

add K400K, AC 

02102 

744000 


CLU 

02103 

777777 


law 17777 

02104 

507454 


AND K7S 

02105 

307435 


ado K40eK 

02106 

247435 


XOR K400K 

02107 

740200 


SZA 

02110 

740040 

E357 

HALT 

02111 

741400 


S2L 

02112 

740040 

E358 

HALT 



/TEST 

ado K200K, AC 

02113 

744002 


cllicml 

02114 

777777 


law 17777 

02115 

507454 


AND k7S 

02116 

307441 


ADO K200K 

02117 

247441 


XOR K200K 

02120 

740200 


SZA 

02121 

740040 

E359 

HALT 

02122 

740400 


SNL 

02123 

740040 

E360 

HALT 



/TEST 

ado K100K, AC 

02124 

744002 


cllicml 

02125 

777777 


law 17777 

02126 

507454 


AND K7S 

02127 

307343 


ADO K100K 

02130 

247343 


XOR K100K 

02131 

740200 


SZA 

02132 

740040 

E361 

HALT 

02133 

740400 


SNL 

02134 

740040 

E362 

HALT 



/TEST 

ADO K40Ki AC 

02135 

744002 


CLLICML 

02136 

777777 


law 17777 

02137 

507454 


AND K7S 

02140 

307434 


ADD K40K 

02141 

247434 


XOR K40K 

02142 

740200 


SZA 

02143 

740040 

E363 

HALT 

02144 

740400 


SNL 

02145 

740040 

E364 

HALT 



/TEST 

ADO K20Ki AC 

02146 

744002 


CLLICML 

02147 

777777 


law 17777 

02150 

507454 


AND K7S 

02151 

307440 


ado K20K 

02152 

247440 


XOR K20K 

02153 

740200 


SZA 

02154 

740040 

E365 

HALT 

02155 

740400 


SNL 

02156 

740040 

E366 

HALT 


/PDP-15 BASIC EXERC 


* ONESi link e 0 
/LINK » 0 

/AC » ONES 
/AC a ONES 

/400K 

/AC » 0 

/ERRORf ADO K400K TO ^0 FAILED 
/ERROR; link not A ZERO, CARRY FAILED 

a ONESi link » 1 
/link a i 

/AC a Ones 
/AC a ONES 

/200K 

/AC a 0 

/ERROR! ADO K200K TO FAILED 
/ERROR) link not a ONEi LINK RESET 

a ONESi LINK a 1 
/LINK a i 

/AC p Ones 
/AC a ones 

/100K 

/AC a 0 

/ERROR! ADD K100K TO «0 FAILED 
/ERROR! link NOT A ONE# LINK RESET 

ONESi link > 1 
/LINK a 1 

/AC i Ones 
/AC a ONES 

/40K 

/AC a 0 

/ERROR! ADO K40K TO ii0 FAILED 
/ERROR! LINK NOT A ONE# LINK RESET 

ONES# LINK ■ 1 
/LINK a 1 

/AC a Ones 
/AC a ONES 

/20K 

/AC a 0 

/ERROR! add K20K To -*0 FAILED 

/ERROR! link NOT A ONE, LINK RESET 

ER - TAPE 3 
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/TEST 

ADD K10K# AC 

02157 

744002 


CLLICML 

02160 

777777 


law 17777 

02161 

507454 


AND k7S 

02162 

307437 


ADD K10K 

02163 

247437 


XOR K10K 

02164 

740200 


SZA 

02165 

740040 

E367 

HALT 

02166 

740400 


SNL 

02167 

740040 

E368 

HALT 



/TEST 

ADO K4K, AC 

02170 

744002 


CLLICML 

02171 

777777 


law 17777 

02172 

507454 


AND K7S 

02173 

307430 


add K4K 

02174 

247430 


XOR K4K 

02175 

740200 


SZA 

02176 

740040 

E369 

WALT 

02177 

740400 


snl 

02200 

740040 

£370 

> 

HALT 



f 

/TEST 

ADD K2K, AC 

02201 

744002 


CLLICML 

02202 

777777 


law 17777 

02203 

507454 


AND k7S 

02204 

307426 


ADD K2K 

02205 

247426 


XOR K2K 

02206 

740200 


SEA 

02207 

740040 

E371 

WALT 

02210 

740400 


SNL 

02211 

740040 

E372 

HALT 



/TEST 

ADO KIK, AC 

02212 

744002 


CLLICML 

02213 

777777 


law 17777 

02214 

507454 


AND k7S 

02215 

307424 


ADD KlK 

02216 

247424 


XOR KlK 

02217 

740200 


SIA 

02220 

740040 

E373 

WALT 

02221 

740400 


SNL 

02222 

740040 

E374 

HALT 



/TEST 

ado K400I AC 

02223 

744002 


CLLICML 

02224 

777777 


law 17777 

02225 

507454 


AND K7S 

02226 

307423 


ado k400 

02227 

247425 


XOR K4e0 

02230 

740200 


sza 

02231 

740040 

E375 

HALT 

02232 

740400 


SNL 

02‘233 

740040 

E376 

HALT 


.EJECT 


* ONES* LINK 8 I 
/LINK = 1 

/ac « Ones 
/AC ■ ONES 

/10K 

/AC » 0 

/ERRORl ADO K 10 , TO -0 FAILEr 

/ERRORl LINK NOT A OM» LINK RESET 

ONES, LINK • 1 
/LINK = i 

/AC a Ones 
/AC a ones 
/4K 

/AC a 0 

/ERRORl add K4K TO FAIL^^O 
/ERRORl LINK NOT A ONE# LINK RESET 
ones; LINK a i 

/link a 1 

/AC a Ones 
/AC a ONES 
/2K 

/AC a 0 

/ERRORl AC K2K TO «0 FAILED 
/ERRORl LINK NOT A ONE* LINK RESET 
ones; LINK a 1 

/link a 1 

/AC a Ones 
/AC a ONES 
/IK 

/AC a 0 

/ERRORl ADD KlK TO m2 FAILED 

/ERRORl LINK NOT A ONE, LINK RESET 

® ONES, LINK a 1 
/LINK a 1 

/AC a Ones 
/AC a ONES 

/400 

/AC a 0 

/ERROR! ADO K400 TO -0 FAILED 
/ERRORl link not a one# LINK RESf;t 
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ONES# LINK « 1 
/LINK * 1 

/AC s Ones 
/AC * ONES 

/200 

/AC » 0 

/ERRORl ADD K200 TO «*0 FAILED 

/ERRORl link not A ONE, LINK RESET 

ONES# LINK * i 
/link » i 

/AC » Ones 
/AC s ONES 

/100 

/AC • 0 

/ERRORl ADD K100 TO »0 FAILED 
/ERRORl LINK NOT A ONE# LINK RESET 

ones; link ■ 1 

/LINK P 1 

/AC « Ones 
/AC ■ ONES 
/40 

/AC » 0 

/ERRORl ADO K40 TO 110 FAILED 
/ERRORl link not A ONE# LINK RESET 

ones; link • 1 

/LINK s 1 

/AC P ONES 
/AC • ONES 
/20 

/AC * 0 

/ERRORl ADO K20 TO »0 FAILED 

/ERRORl LINK NOT A ONE# LINK RESET 

ONES, LINK « 1 
/link » 1 

/AC P Ones 
/AC * ONES 


/AC P 0 

/ERRORl add K10 TO «0 FAILED 


/ERRORl LINK NOT A ONE# LINK RESET 
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onesi link « 1 

/LINK a 1 

/AC a Owes 
/AC a OWES 
/4 

/AC a 0 

/ERRORl add K4 to *0 FAILED 
/ERRORl LINK NOT A ONE# LINK RESET 

Ones, link a i 
/LINK a I 

/AC a Owes 
/AC a ONES 
/2 

/AC a Z 

/ERRORl ADO K2 TO »0 FAILED 
/ERRORl LINK NOT A ONE# LINK RESET 

Ones# link « i 

/LINK a 1 

/AC 9 Ones 
/AC a ONES 
/I 

/AC • 0 

/ERRORl ADD K1 TO -0 FAILED 

/ERRORl link not A ONE# LINK RESET 

' ones; link a 0 
/LINK a 0 
/AC i ONES 
/ONES 

/AC a ones 
/AC • 0 

/ERRORl ADO K7S TO ALL ONE* FAILED 

/ERRORl LINK NOT A ONE# LINK RESET 

iC a 252525# LINK a 1 
/LINK a 1 

/AC a 252925 

/525253 
/00000i 
/AC a 0 

/ERRORl add K5253 TO K5252 FAILED 


/ERRORl LINK NOT A ONE# LINK RESET 
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/TEST 

ADO 252525, 

02364 

744000 


CLL 

02365 

207470 


lac K53 

02366 

307466 


add K010 

02367 

247412 


XOR K1 

02370 

740200 


sza 

02371 

740040 

£397 

HALT 

02372 

741400 


SHL 

02373 

740040 

E398 

WALT 



/TEST 

ADO series 

02374 

754000 


CLAtCLL 

02375 

307446 


ADO KIS 

02376 

307447 


ADO K2S 

02377 

307450 


ADO K3S 

02400 

307451 


add K4S 

02401 

307452 


ADO k5S 

02402 

307453 


ADO K6S 

02403 

307454 


ADO k7S 

02404 

740001 


CMA 

02405 

740200 


SZA 

02406 

740040 

£399 

WALT 

02407 

740400 


SNL 

02410 

740040 

£400 

HALT 

02411 

447517 


ISZ W0RK3 

02412 

602025 


JMP AOOACl 

02413 

106336 


JMS GENRAN 

02414 

106362 


JHS CKNO 


.ejECT 


* 525253, LINK RESET 
/LINK e 0 
/AC * 525253 

/252525 

/00000i 
/AC ■ 0 

/CRRORl add K2525 TO K5253 FAILED 
/ERRORl link not A ZERO, CARRY FAILED 


/LINK » 0, AC 9 0 

/AC ■ llllil 

/AC i 333333 

/AC 9 666666 

/AC • 333333, LINK ■ 3. 

/AC ■ 111111 
/AC » 777777 
/AC » 777777 
/AC ■ 0 

/ERRORl ADO SERIES FAILED 

/ERRORl link not A 1 

/CHECK DONE LOOPING 
/LOOP 

/GET NO, FOR NEXT LOOP 





^ <1 BX8k 0X8K 




/ADD RANDOM 

PAIRS TEST 


?24l5 

106336 

f 

ranadD 

JMS 

CENRAN 

/get random number 

!?2416 

741100 


SPA 


/* NO 

02417 

740001 


CMA 


/e make IT ♦ 

02420 

741200 


SNA 


/0 NOT ALLOWED 

02421 

602415 


JMP 

RANaOO 

/IT IS ♦ A 

02422 

043051 


DAC 

APOS 

02423 

740001 


CMA 


/I complement 

02424 

043052 

MINUSA 

OAC 

ANEG 

/IT IS 

02425 

106336 


JMS 

genran 

/get next RANDOM 

02426 

741100 


SPA 


/* NO 

02427 

740001 


CMA 

. 

/• MAKE * 

02430 

741200 


SNA 


/0 NOT ALLOWED 

02431 

602425 


JMP 

MJNUSA*! 


02432 

043053 


OAC 

BPOS 

/IT IS ♦ B 

02433 

740001 


CMA 


/MAKE 1»S COMP 

02434 

043054 

MINuSB 

OAC 

6NCG 

/IT IS - B 

02435 

777777 


law 

• 1 


02436 

043062 


DAC 

PASS2 


02437 

744000 


CLL 



02440 

203054 


LAC 

BNEG 

/restart here to REGENERATE NEW COMPARES 

02441 

343052 


TAD 

ANEG 

/wB • A 

02442 

741400 


S2L 


/EOC IF ADO 

02443 

347412 


TAD 

K1 

/yes make carry 

02444 

043055 

MINSAB 

OAC 

sumneg 

/SAVE -A 



/NOW generate a * 8 


02445 

203051 


LAC 

APOS 

/get *A 

02446 

744000 


OIL 



02447 

343053 


TAO 

BPOS 

/*B 

02450 

741400 


SIL 


/EOC IF ado 

02451 

347412 


TAO 

K1 

/yes add carry 

02452 

043056 

APLUSB 

DAC 

SUMPOS 



.EJECT 


I 
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/NOW Generate b«a 



(?!2453 

203053 

lac bpos 


/GET B 

02454 

744000 

CLL 



02455 

343052 

TAD ANEG 


/B»A 

02456 

741400 

SHL 

/EOC 


02457 

347412 

TAD K1 

/YES 

ADO CARRY 

02460 

043057 

BMlNSA DAC BMASUM 

/SAVE 

B" A 



/NOW generate A«B 



02461 

203051 

lac apos 


/GET A 

02462 

744000 

CLL 



02463 

343054 

TAD BNEG 


/bB 

02464 

741400 

SZL 

/EOC 


02465 

347412 

TAD K1 

/YES 

ADD CARRY 

02466 

043060 

AMlNSB DAC AMBSUM 

/AeB 




/IF A*B IS AN OVERFLOW 

SITUATION 



/make oflow tests that 

APPLY 

B SNL 



/IF A*B IS NOT overflow 

MAKE 




/overflow test that apply e SZL 

A 

02467 

203056 

f 

lac sumpos 


/GET A*B 

02470 

751100 

SPAfCLA 

/still pos result 

02471 

207537 

lac KSNl 


/NEG result is overflow 

02472 

741200 

SNA 

/AC f 

SNL IS overflow 

02473 

20753.6 

lac kszl 


/♦ RESULT IS NO OVERFLOW 

02474 

042517 

DAC OFLCKl 


/SET UP ALL OFLOW 

02475 

042545 

DAC 0FLCK3 


/TESTS WHERE OFLOW 

02476 

042662 

DAC OFLCHl 


/may or may not occur 

02477 

042677 

DAC 0FLCM2 


/AC s Snl is A+B OFLOW 

02500 

042715 

DAC 0FLCW3 


/AC B SfL IS A*B NOT OFLOW 

02501 

042734 

DAC 0FLCH4 


/IF a«b oflow •A'*b does also 

02502 

042754 

DAC 0FLCH5 


/IF A*B not oflow 

02503 

042775 

DAC OFLCH6 


/THEN NONE OF THESE 

02504 

043017 

DAC OFLCW7 


/ados Can overflow 

02505 

042573 

OAC 0FLCK5 



02506 

042621 

OAC 0FLCK7 





.EJECT 





/NOW 00 A compute series or 
/ONES COMP additions 
/SHOULD GET THE SAME RESULTS AS 
/THE TAD’S WITH EOC TAD (1 


/ 

/FIRST TEST A*B 


/ 


02507 

744000 

aplsbt 

CLL 


02510 

203051 


LAC 

apos 

02511 

303053 


ADD 

BPOS 

02512 

543056 


SAD 

SUMPOS 

02513 

602517 


JMP 

• *4 

02514 

740040 

E401 

HLT 


02515 

203056 


LAC 

SUMPOS 

02516 

740040 


HLT 


02517 

741400 

OFLCKl 

SiL 


02520 

740040 

E402 

HLT 


02521 

762507 


law 

APLSBT 




•EJECT 


/FOR OVERFLOW CHECK 
/GET A 
/A*B 

/SHOULD » PREVIOUS A*B 
/OK 

/DISPLAY I’S A*B 
/get 2’S comp gen 
/display 2’S A*B 
/OR SNL IF overflow 
/link or overflow failed 

/MAKE JUMP FOR SCOPE LOOP 



I 


page 44 


02522 

02523 

02524 

02525 

02526 

02527 

02530 

02531 

02532 

02533 

02534 


02535 

02536 

02537 

02540 

02541 

02542 

02543 

02544 

02545 

02546 

02547 


02550 

02551 

02552 

02553 

02554 

02555 

02556 

02557 

02560 

02561 

02562 


BX8k 

BX8K 




/2ND test *8^4 

744000 

am'nsbt 

CLL 


203054 


lac 

PmEG 

303051 


ado 

APOS 

543060 


SAD 

AMBSUM 

602532 


JMP 

.♦4 

740040 

E403 

hlt 


203060 


lac 

AMBSUM 

740040 


hLT 


741400 

0FLCK2 

SZL 


740040 

E404 

HLT 


762522 


law 

AMNSBT 


/ 

/NOW 3R0 test Is "A 

744000 

MAPLHB 

CLL 


203052 


LAC 

ANEG 

303054 


AOD 

bneg 

543055 


SAD 

SUMNEG 

602545 


JMP 

,♦4 

740040 

E405 

HLT 


203055 


LAC 

SUMNEG 

740040 


MIT 


741400 

oflcks 

SHL 


740040 

E406 

HLT 


762535 

j 

law 

maplmb 


/ 

/fourth 

test 

' IN THIS 


/IS test 

B" A 


744000 

BMNSAT 

CLL 


203053 


LAC 

BPOS 

303052 


ADO 

ANEG 

543057 


SAD 

BMASUM 

602560 


JMP 

,♦4 

740040 


HLT 


203057 


LAC 

BMASUM 

740043 


►^lt 


741400 


SZL 


740040 


HLT 


762550 


law 

BMNSAT 


• EJECT 


/get a 
/A- a 

/Should * previous a-b 
/o< 

/DISPLAY I’S AbB 

/DISPLAY 2’S AbQ 

/SMCULO • CT CVEPfLE’^ 

/make jmp fop Scope 


/get »a 

/PLS bB 

/SiHOuLQ = PREVIOUS s-A-fi 
/OK 

/DISPLAY I'S -A-r 

/DISPLAY 2’S bA-p 
/CR SNL 
/LINK failed 

/MAKF jMp FOR SCOPE 

SERIES 


/get ft 
/AOD -a 

/SHOULD e PREVIOUS B«A 
/OK 

/DISPLAY I’S B**a 

/DISPLAY 2’S B«A 
/CAN NOT OVERFLOW 
/OVERFLOW Failed 

/make JMP FOR SCOPE 




eX8K 

BX8K 






/FIFTM 

TEST in: Th'IS S 

£H IPS 




/IS TEST (4*95-4 = s 



t^25ft3 

744003 

AB'iATS 

31L. 



^2?64 

203056 


UAC SU^PoS 



72^65 

303052 


ADD ANEG 



^2566 

543053 


SAD BPCS 



5^2567 

602573 


JMP ,*4 



02571? 

743040 

E407 

HIT 



02571 

203053 


lac rpos 



02572 

740040 


HIT 



02573 

741400 

orucKS 

SHt 

/C4^ OVERFLOW SK'L 

IF A*B OVE-FLC- 

02574 

743040 

£408 

HUT 

/ILLEGAL LINK 


32575 

762563 


L.AW ABHATS 

/make JvP 

FOR SCOPE 



/ 

/SIXTH 

TEST IN THIS SERlrS 




/IS test {B*A)"8 ■ -A 



02576 

744000 

bmahbt 

CUU 



02577 

203057 


LAC BMASUM 



02603 

303054 


add PNEG 



02601 

543052 


SAD AN£g 



02602 

602606 


JMP ,*4 



02603 

740040 

£409 

HIT 



02604 

203052 


lac aneg 



02603 

740040 


HLT 



02606 

741400 

0riCK6 

shl 

/can not overflow 


02607 

740040 

E410 

HLT 



02610 

762576 


law PMAMST 

/make jhp 

FOR SCOPE 



f 

/SEVENTH TEST I,N ThIs 

SERIES 




/IS (wA 

" B ) * A ■ «B 



32611 

744000 

mabpat 

CLL 



02612 

203055 


lac su^^^eg 



02613 

303051 


ADD APOS 



02614 

543054 


SAD BNEG 



02615 

602621 


JHP ,*4 



02616 

743040 

£411 

HLT 



02617 

203054 


lac bneg 



02620 

740040 


HLT 



02621 

741400 

0FI,CK7 

S2L 

/can be overflow 

IF A*B overflow then IS S''L 

02622 

740040 

E412 

HIT 

/illegal link 


32623 

762611 


law mabpat 

/MAKE JMP 

FOR SCOPE 




.EJECT 





serifs 
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/EIG'^'^h test or THE 
/IS (AfB) s A 


^2624 

744002 

&MBPBT 

CLL 


02625 

203060 


lac ambsum 


02626 

303053 


aDD bpos 


02627 

543051 


SAD APCS 


02630 

602634 


jMp 


02631 

740040 

E413 

hut 


02632 

203051 


lac Apos 


02633 

740040 


-•UT 


02634 

741400 

oruCKS 

S2U 

/CAN NOT OVERFLOW 

0263S 

740040 

E414 

wUT 


02636 

762624 


!_AW AMBPBT 

/MAKE JMP for SCOPE 



/ 

/9Tm test or series 




/NOW TEST AC a 777777 

♦ A ■ A 

02637 

754001 

^0ACPA 

CUUICUAJCMA 

/SET AC a 777777 

02640 

303051 


ADD APOS 

/♦ A 

02641 

543051 


SAD APOS 

/SHOULD s A 

02642 

602646 


JMP ,*4 

/TEST LP!K 

02643 

740040 

E415 

h|,T 

/FAILED RESULTS 

02644 

203051 


lac apos 


02649 

740040 


hut 

/DISPLAY A 

02646 

741400 

0FI.CK9 

S2U 

/CANNOT OVERFLOW 

02647 

740040 

£416 

HUT 

/OVERFLOW failed L • 1 

02650 

762637 


law M0ACPA 

/make JMP FOR SCOPE 




.EJECT 





B)(8k 

BX8K 





/the next series oe tests 




/ARE AOO sequences TwE 

Results 




/OE WHICH have AIREAcy 
/COMPUTEO and verified 

been 




y 

/FIRST SERIES TESTS A*B 

OK. THEN 

1 (A + H).-A * B 



/see abmats for shorter 

/NOW TRY A+B»A 3 B 

TEST OR 

APLSBT DR ‘^^ACPA 

Z2651 

754001 

SERS01 CU1.ICLMCMA 



02652 

303051 

aOO arcs 



02653 

303053 

ADD gPOS 



02654 

303052 

add anec. 



02655 

543053 

SAD EPOS 



02656 

602662 

JMP ,*4 



02657 

740040 

E417 HLT 



02660 

203053 

lac bpos 



02661 

740040 

HLT 



02662 

741400 

OFLCWI S2L 

/OR SNL 

IF A^B OVERFLO'- 

02663 

740040 

E418 HLT 

/LINK FAILURE 

02664 

762651 

law SERS01 


/make Jmp for score 



f 

/HAVE tested B»A PREvieUS 




/SEE BHNSAT FOR SHORTER 
/NOW TRY A*0*AwA » Bt-A 

TEST 


02665 

754001 

SERS02 CLlfClAJCMA 



02666 

303051 

AOO ARCS 



02667 

303053 

AOO BROS 



02670 

303052 

ADO ANEG 



02671 

303052 

ADD ANEG 



02672 

543057 

SAD 0MASUH 



02673 

602677 

JHP ,*4 



02674 

740040 

E419 HLT 



02675 

203057 

lac RMASUH 



02676 

740040 

HLT 



02677 

740400 

0FLCH2 SNL 

/OR SHL 

IF NO overflow 

02700 

740040 

E420 HLT 



02701 

762665 

law SERS02 
.EJECT 


/MAKE JMP FOR SCOPE 



PARE A8 

BX8k 

BX8K 






/HAVE 

tested {B^A)-8 = • 

•A PREVIOUS 




/SEE SmAmBT for shorter 

test 




/NOW TRY a*B-A^A-B = »A 



:?2702 

7540(»i 

SERS03 

CIL!CLA!CMA 



Z2703 

303051 


ADO APOS 



02704 

303053 


add bpos 



02705 

303052 


ADO ANEG 



02706 

303052 


ADO ANEG 



02707 

303054 


aoo bneg 



252710 

543052 


SAD ANEG 



02711 

602715 


JHP .♦A 



02712 

740040 

£421 

HIT 



02713 

203052 


lac ANEG 



02714 

740040 


hit 



02715 

741400 

oncHS 

S2l 

/SNU IE A*8 overflow 


02716 

740040 

E422 

HUT 

/overflow failed 


02717 

762702 


law SERS03 

/MAKE Jmp for 

SCOPE 



/HAVE 

test -awb no-n try 

A*8-A-A-B-B s 




/SEE HaPLMB for shorter 

TEST 


02720 

754001 

SERS04 

CLUICLAJCMA 



02721 

303051 


ADO APOS 



02722 

303053 


AOO BPOS 



02723 

303052 


add aneg 



02724 

303052 


ADD aneg 



02725 

303054 


ADO bneg 



02726 

303054 


ADO bneg 



02727 

543055 


SAD SUMNEG 



02730 

602734 


JHP i+A 



02731 

740040 

E423 

HUT 



02732 

203055 


UAC SUHNEG 



02733 

740040 


HUT 



02734 

741400 

OFICH4 

S2U 

/SNL IF A^B overflow 


02735 

740040 

£424 

HUT 

/OVERFLOW failed OR LINK FAILED 

02736 

762720 


UAW SERS04 

/MAKE Jmp FOR 

SCOPE LOOP 




.eject 





?2737 
. 7274 !^ 
22741 
72742 
.•?274 3 
22744 

02745 

02746 

02747 

02750 

02751 

02752 

02753 

02754 

02755 

02756 


02757 

02760 

02761 

02762 

02763 

02764 

02765 

02766 

02767 

02770 

02771 

02772 

02773 

02774 

02775 

02776 

02777 



/HAVE TESTED 

1 (•At«B)*A s 

Lb now 

a+b^a-a-b-b*a s -B 


/USE MaBPAT 

FOP SHORTER 

TEST 


754001 

SERS05 

CLL : 

CLA ICMA 



303051 


ad-: 

A PCS 



303053 


ADD 

PPDS 



303052 


ADO 

aneg 



303052 


ADD 

ANEg 



303054 


ADD 

bneg 



303054 


ADD 

pneg 



303051 


ADO 

APOS 



543054 


SAD 

BNEG 



602754 


JMP 




740040 

£425 

HIT 




203054 


LAC 

PNEG 



740040 


WUT 




740400 

0rLCH5 

SNL 


/OR SZL 

IF A*B DO NOT overflow 

740040 

E626 

hLT 


/LINK OR OVERFLOW FAILED 

762737 


law 

SERS05 


/MAKE JHP FOR SCOPE 


/HAVE DONE ’ 

•B^A PREVIOUS 

It Y 



/NOW DO 

A * B " 

-A-A-8<*B*A*A 

3 wB* A 



/USE AmNSBT 

FOR SHORTER 

TEST 


754001 

SeRS06 

CLi: 

CLA'CMA 



303051 


ADO 

APOS 



303053 


ADD 

BPOS 



303052 


ADO 

ANEG 



303052 


ADD 

ANEg 



303054 


ADO 

bneg 



303054 


ADD 

BNEg 



303051 


ADO 

APOS 



303051 


ADO 

APOS 



543060 


SAO 

AMBSUH 



602775 


JMP 

I 



740040 

E427 

HIT 




203060 


LAC 

AMBSUH 



740040 


mLT 




741400 

0FLCH6 

Sil 


/OR SNL 

IF A*B overflow 

740040 

E428 

HLT 


/OVERFLOW OR LINK FAILED 

762757 


law 

SERS06 


/make jmp for scope 


.EJECT 



Page 


5e 


bx8k 


8X8K 


/WAVE DONE (-B*A)*B PRfVtCUSLY 
/NOW DOE A*B-A-A-B-B*A+A*E s a 
/USE AhBPBT top SHDPtEP rST 


:*3203 

754001 

SEPS27 

CLLl 

ICLAJCMA 



303051 


ADD 

APOS 


73^02 

303053 


ADD 

BPDS 


03003 

303052 


ADD 

A\EG 


03004 

303052 


ADD 

ANEG 


03005 

303054 


ADD 

8NEG 


03006 

303054 


ADO 

bneg 


03007 

303051 


ADO 

APOS 


03010 

303051 


aOO 

APOS 


03011 

303053 


add 

epos 


03012 

543051 


SAD 

APOS 


03013 

603017 


JMP 

• *4 


03014 

740040 

E429 

WIT 



03015 

203051 


LAC 

APOS 


03016 

740040 


WIT 



03017 

740400 

07LCH7 

SNL 

/OR SZL 

IF a*b not overflow 

03020 

740040 

£430 

WLT 

/LINK OR 

1 OVERFLOW failed 

03021 

763000 

M 

law 

SERS07 

/MAKE JMP FOR SCOPE 



f 

/AFTER 

one pass 




/make 

ALL B 

CONSTANTS A 




/AMO make all a constants B 


03022 

443062 

COMCWG 

ISH 

PASS2 

/2ND PASS 

03023 

603044 


JMP 

CKLP 

/yes DOn’E 2ND 

03024 

203051 


lac 

APOS 

/A 

03025 

043053 


DAC 

8P0S 

/IS NOW B 

03026 

203054 


lac 

BNEG 

/BNEG 

03027 

043052 


OAC 

ANEG 

/IS aneg 

03030 

740001 


CMA 



03031 

043051 


DAC 

APOS 

/B IS A 

03032 

203053 


LAC 

BPOS 


03033 

740001 


CMA 

/ANEG 


03034 

043054 


OAC 

BNEG 

/IS N'Eg 

03035 

203057 


lac 

BMASUM 


03036 

040010 


DAC 

10 


03037 

203060 


LAC 

ambsum 

/A»B 

03040 

043057 


OAC 

BMASUM 

/IS NOW Awp 

03041 

200010 


LAC 

10 /Be'A 


03042 

043060 


OAC 

AMBSUM 

/IS NOW A*B 

03043 

602507 


JMP 

APLSBT 

/OVERFLOW SERUP 





B)(6k 


BX8K 


?3?44 

447517 

CKLP 

IS2 

WORk3 

03£’45 

602415 


JMP 

RAMAOD 

'^3246 

106336 


JMS 

GEMRAN 

3 4 7 

106362 


J^S 

CKMO 

;’3e5? 

603063 

/ 

JMP 

AOEOON 

03P*51 

000000 

/ 

APOS 

0 

/A 

?!3?52 

000002 

ANCG 

0 

/’■A 

03053 

000000 

epos 

0 

/9 

03054 

000000 

6NCG 

0 

/«3 

03055 

000000 

SUMNIEG 

0 

/•A4(»B) 

03056 

000000 

SUMPOS 

0 

/A^a 

03057 

000000 

BMASUM 

0 

/B4(«A) 

03060 

000000 

AMBSU^ 

0 

/A*(«B) 

03061 

000000 

MSKBIT 

0 



.EJECT 


/CH£CK done looping 
/LOOP 

/get mo. For next loop 





52 

BX6k 

BX8< 



P3P62 

000000 

PASS2 

0 




/GET A 

random number 

AND ITS I'S CD^'FL^’^'ENT 



/EACH BIT will have 

A 0 IN C^E OF T-^E nu'^BF-RS 



/«AKE THE 0 BIT a 1 

AND ado tw£ numbers nQTH WAVS 



/PIRST 

ADD IS T*4E (AC) 15 The AlTERE'' ? = 1 



/SECOND 

ADO IS THE (M0) IS TmE ALTERED ? * 1 



/THE result or BOTH 

ADDS SHOULD * the ALTERED BIT = 1 

03?163 

106336 

/ 

adedon 

jms genran 

/get rav'Cm ''Umber 

03P64 

043051 


DAC AP(3S 

/save IT 

03065 

740001 


CMA 

/MAKE ONES CO'^PL'-MEVT 

03066 

043052 


DAC ANEG 

/AND SAVE IT 



f 

/THE FIRST BIT TO BE 

altered is 0 then continue to 17 

03067 

207435 


lac K400K 


03070 

043061 

t 

DAC MSKBIT 




/ 

/SET UP 

next bit to 

TEST ^ altered NUMBER GOES TO BPOS 

03071 

203051 

BISETU 

lac apos 


03072 

503061 


AND MSKBIT 

/DOES APOS BIT s 0 

03073 

740200 


SZA 

03074 

603103 


JMP hopneg 

/NO alter ANEC 

03075 

203051 


lac apos 


03076 

243061 


XOR MSKBIT 


03077 

043053 


DAC BPOS 

/modified number goes to apos 

03100 

203052 


lac ANEG 


03101 

043054 


DAC BNEC 

/unmoo number goes to bneg 

03102 

603110 


JMP BITTSl 




/THE Ones comp number has the 0 bit modify it 

03103 

203052 

modneg 

lac ANEG 


03104 

243061 


XOR MSKBIT 

/MOD number to bpos 

03105 

043053 


DAC BPOS 

03106 

203051 


lac apos 


03107 

043054 

/ 

OAC BNEG 

/UNMOD number to bneg 


/complemented bit TESTl (AC) = MOOIEIED ^'UMBER AT ADD 
/ 


03110 

744000 

BITTSl 

CLL 



03111 

203053 


LAC 

BPOS 

/GET modified number 

03112 

303054 


ADO 

bneg 

/add UNMnOlF'lED 

03113 

543061 


SAD 

MSKBIT 

/result should a bit changed 

03114 

603120 


JMP 

,♦4 


03115 

740040 

£431 

HLT 


/DISPLAY incorrect RESULTS 

03116 

203061 


LAC 

MSKBIT 


03117 

740040 


HLT 


/DISPLAY BIT altered and exp 

03120 

741400 

OFLCHS 

SZL 


/NO overflow 

03121 

740040 

E432 

HLT 


/overflow not allOwE"^ 

03122 

763110 


L A w 

BITTSl 

/make JMP FOR SCORE 1 OOP 




.eject 




PaGE^53 

BX8k 

BXBK 






/COMP 1 

BIT test 2 (MB) 5 

MODiriEO NUMBER aT add 

P'3123 

744000 

/ 

PITTS2 

CLL 



73124 

203054 


LAC 

RNEG 

/GET UNMr.DiriEr 

73125 

3030*53 


i r> n 

iA 

RPOS 

/ADD MCciElEf’ 

73126 

543061 


SAD 

MSK8IT 

/result should a BIT ChAvGED 

73127 

603133 


J^P 

.♦4 

/OK 

73137 

740040 

E433 

MLT 


/DISPLAY incorrect Rf.SULTS 

73131 

203061 


lac 

MSK8IT 


73132 

740040 


HIT 


/DISPLAY BIT altered AVd EXP 

73133 

741400 

OFLCH? 

SZL 


/SHOULD NOT OVERELO-^ 

73134 

740040 

E434 

wLT 



03135 

763123 


law 

BITTS2 

/MAKE JMP rOR SCOPE LOOP 



/POSITION mask BIT Over 

1 PLACE 



/ir 17 

HAS BEEN DONE CONTINUE 

03136 

203061 

/ 

LAC 

mSKBIT 

/GET last 

03137 

744020 


RCR 


/POSITION 

03140 

043061 


DAC 

mskbit 

/SAVE 

03141 

740200 


SZA 


/DONE ALL BITS 

03142 

605071 

/ 

JMP 

BIS£TU 

/DO FOR next bit 


/END or test sequence 
/ 


03143 

447517 


ISZ WORKS 

/CHECK done looping 

03144 

603063 


JMP aDEOON 

/LOOP 

03145 

106336 


JMS GENRAN 

/GET NO, FOR NEXT LOOP 

03146 

106362 


JMS CKNO 


03147 

750004 


las 

/CHECK FOR continuous LOOP 

03150 

742010 


RTL 

/CK ACS 2 

03151 

741100 


SPA 


03152 

602415 


JMP RANADD 

/LOOP 



/POP* 

15 BASIC EXERCISER 

L TAPE 4 



/test 

y 

SAD 


03153 

207411 

/ 

SADAC 

LAC K0 

/AC ■ 0 

03154 

547411 


SAD K0 


03155 

741000 


SKP 


03156 

740040 

E435 

J 

HALT 

/error# sad K0 skipped 

03157 

207411 

/ 

lac K0 

/AC * 0 

03160 

547454 


sad k7S 

/ERROR, sad K7S FAILED TO SKIP 

03161 

740040 

E436 

y 

halt 

03162 

207454 

/ 

lac k7S 

/AC » 1*S 

03163 

547411 


SAD K0 


03164 

740040 

E437 

i 

halt 

/ERROR, sad K0 failed TO SKIP 

03165 

207454 

/ 

LAC k7S 

/AC a l‘S 

03166 

547454 


SAD k7S 


03167 

741000 


SKP 


03170 

740040 

E438 

/ 

HALT 

/ERROR, SAD K7S SKIPPED 



/ 

/SADi 

TAD 
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BX8k 


BX8K 


/ 


03171 

750000 


CLA 

03172 

347411 


TAD K0 

03173 

547411 


SAD K0 

03174 

741000 


SKP 

03175 

740040 

£439 

HALT 

03176 

750000 

/ 

CLA 

03177 

347411 


TAD K0 

03200 

547454 


SAD K7S 

03201 

740040 

E440 

i 

halt 

03202 

750000 


CLA 

03203 

347454 


TAD K7S 

03204 

547411 


SAO K0 

03205 

740040 

E441 

i 

HALT 

03206 

750000 

i 

CLA 

03207 

347454 


TAD k7S 

03210 

547454 


SAD k7$ 

03211 

741000 


SKP 

03212 

740040 

£442 

HALT 


/ 

.EJECT 


/AC « 0 


/ERROR. SAD K0 SKIPPED 
/AC s 0 

/ERROR, sad K7S rA!LEO TO SKIP 
/AC ■ 0 

/ERROR. SAD K0 tailed TO SKIP 
/AC « 0 

/ERROR. SAO K7S SKIPPED 




BX8K 

BX8K 






/sequentiau sad 



03213 

207411 


LAC K0 

/AC « 0 


03214 

547454 


SAD K7S 



03215 

760001 


LAW 1 

/760001 


03216 

547454 


SAD K7S 



03217 

760002 


law 2 

/760002 


03220 

547454 


SAD K7S 



03221 

760004 


LAW 4 

/760004 


03222 

547454 


SAD k7S 



03223 

760010 


law 10 

/760010 


03224 

547454 


SAD K7S 



03225 

760020 


law 20 

7760020 


0322$ 

547454 


SAD K7S 



03227 

760040 


law 40 

7760040 


03230 

740200 


S2A 



03231 

740040 

C443 

WALT 

/ERROR. 

AC NT 0, CONTENTS OF 





7AC • LAST SAD THAT RAILED 



/TEST 

i 

SADi SKP SERIES 



03232 

750000 

i 

CLA 

/AC f 0 


03233 

547454 


SAD K7S 



03234 

760001 


law 1 

7760001 


03235 

741000 


SKP 



03236 - 

760002 


LAW 2 

/760ff02 


03237 

547454 


SAD K7S 



03240 

760004 


law 4 

7760004 


03241 

741000 


SKR 



03242 

760010 


LAW 10 

/760010 


03243 

547454 


$A0 K7I 



03244 

760020 


law 20 

7760020 


03245 

741000 


SKR 



03246 

760040 


law 40 

7760040 


03247 

740200 


S2A 



03250 

740040 

C444 

HALT 

/ERROR. 

AC NOT 0, CONTSNTS 



J 


/OR AC ■ 

last Sad or skp 

03251 

447517 

/ 

IS2 W0RK3 


/CHECK done looping 

03252 

603153 


JWR 8ADAC 


/LOOP 

03253 

106336 


JMS QCNRAN 

/GET NO, 

FOR NEXT LOOP 

03254 

106362 

g 

JHS CKWO 





f 

.EJECT 
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BX8K 

BX6K 






/tiST 

DZM 



03255 

207533 

DZMAC 

lag KHAut 

/AC B 740040 


03256 

151111 


DZM 11111 

/ADOR 1111 OR 

01111 

03257 

211111 


LAC mil 



03260 

740200 


S2A 



03261 

740040 

E445 

HALT 

/ERROR. OZM failed AT 
/OR Zllll 

11111 

03262 

207533 

/ 

lag khalt 

/AC B 740040 


03263 

152222 


OiM 12222 



03264 

212222 


lag 12222 



03265 

740200 


SZA 



03266 

740040 

C446 

HALT 

/ERROR. DZM failed AT 

1222 OR 





/02222 


03267 

207533 

/ 

lac khalt 

/AC > 740040 


03270 

153333 


DIM 13333 



03271 

213333 


lac 13333 



03272 

740200 


SZA 



03273 

740040 

E447 

HALT 

/ERROR, DZM failed AT 

13333 OR 



j 


/03333 


03274 

207533 

/ 

LAC khalt 

/AC ■ 740040 


03275 

154444 


DIM 14444 



03276 

214444 


lag 14444 



03277 

740200 


SZA 



03300 

740040 

E448 

halt 

/ERROR, OZM failed AT 

14444 





/OR 04444 


03301 

207533 

/ 

lag khalt 

/AC • 740040 


03302 

155555 


OIM 15555 



03303 

215555 


lac 15555 



03304 

740200 


SiA 



03305 

740040 

£449 

HALT 

/ERROR, OZM failed AT 

15555 





/OR 05555 


03506 

207533 

/ 

lac khalt 

/AC f 740040 


03307 

156666 


DIM 16666 



03310 

216666 


LAC 16666 



03311 

740200 


SIA 



03312 

740040 

£450 

halt 

/ERROR, DZM failed AT 
/OR 06666 

16666 

03513 

207533 

/ 

lag khalt 

/AC « 740040 


03514 

157777 


OZM 17777 



03315 

217777 


lag 17777 



03316 

740200 


SZA 



03317 

740040 

E45i 

HALT 

/ERROR. OHM failed AT 
/DR 07777 

17777 




.eject 





57 


BXdK 


BX8K 




/ 


03520 

207533 


LAC KHAlT 

03321 

152525 


02M 12525 

03322 

212525 


LAC 12525 

03323 

740200 


SZA 

03324 

740040 

C452 

MALT 



/ 

/OR 

03325 

207533 


lac khalt 

03326 

155252 


OZM 15252 

03527 

215252 


lac 15252 

03330 

740200 


SZA 

03331 

740040 

E453 

/ 

HALT 



/ 

/TEST 

i 

AC after a OZM 

03332 

207454 

f 

LAC K7S 

03333 

157777 


DZM 17777 

03334 

740001 


cma 

03335 

740200 


SZA 

03336 

740040 

E454 

HALT 



y 

//TEST 

ACi link, AOR 

03337 

754001 

/ 

CLAiCMAlCLL 

03340 

307454 


ADO K7S 

03341 

157777 


OZM 17777 

03342 

740001 


CMA 

03343 

740200 


SZA 

03344 

740040 

E455 

halt 

03345 

741400 


SZL 

03346 

740040 

C456 

HALT 

03347 

217777 


LAC 17777 

03350 

740200 


SZA 

03351 

740040 

C457 

HALT 


/ 

/ 


/sequential dzm 
/ 


03352 

207454 


lac K7S 

03353 

152525 


DHM 12525 

03354 

155252 


OiM 15252 

03355 

157777 


17777 

03356 

150000 


DZM 10000 

03357 

740001 


CMA 

03360 

750200 


CLAISZA 

03361 

740040 

E458 

MALT 


.eject 


/AC « 740040 


/ERROR, tailed at 12525 

2525 

/AC « 740040 

/E'^ROR, D2M failed aT 15252 OR 0525? 

/AC • 777777 

/ERROR. AC changed AFTER A D?M 
17777 OR 07777 AFteR A 02M 
/AC f l»Si LINK « 0 

/ERROR, AC NOT i»S AFTER A HEM 
/ERROR, link Not 0 

/ERROR, 02M FARED AT 177777 OR 07777 

/AC f 1»S 

/AC ■ 0 

/ERROR, AC mot j »S AFTER 
/02M SERIES 



PAGE 56 BX8K 

9*3362 352529 

P!3363 355252 

03364 357777 

03365 350000 

03366 740200 

03567 740040 

03370 447517 

03371 603255 

03372 106336 

03373 106362 


03374 207455 

03375 051111 

03376 551111 

03377 741000 

03400 740040 

03401 207456 

03402 052222 

03403 552222 

03404 741000 

03405 740040 

03406 207457 

03407 053333 

03410 553353 

03411 741000 

03412 740040 

03413 207460 

03414 054444 

03415 554444 

03416 741000 

03417 740040 

03420 207461 

03421 055555 

03422 555555 

03423 741000 

03424 740040 


BXdK 

TAO 12525 
TAD 15252 
TAO 17777 
TAO 10000 
SHA 

E459 HALT 
/ 

IS? W0RK3 
JMP OZ*^AC 

JMS CE^'RAN 
JMS CKMO 

/ 

/ 

/TEST DAC 
/ 

OACAC LAC k 51S 
OAC mil 
SAD 11111 
SKP 

E460 MALT 

lac K12S 
OAC 12222 
SAO 12222 
SKP 

E461 HALT 

lac K13S 
OAC 13333 
SAD 13333 
SKP 

C462 HALT 

lac K14S 

OAC 14444 
SAO 14444 
SKP 

C463 HALT 

lac kiss 

OAC 15555 
SAD 15555 
SKP 

E464 HALT 


EJECT 


/ERROR, 02M failed 

/CHECK looping 

/LOOP 

/GET NO. EOR NEXT LOOP 


/AC « mil 


/ERROR, OAC ADR CONTENTS NOT EQUAL 
/TO AC, OAC failed 

/AC « 122222 


/ERROR. 122222 OR 022222 CONTENTS 
/NOT » TO AC, OAC Failed 

/AC » 13333 


/ERROR, 13333 Or 03333 CONTENTS 
/NOT ■ TO AC DAC FAILED 
/AC ■ 14444 


/ERROR, 14444 OR 03333 CONTENTS 
/NOT P TO AC, OAC failed 
/AC i 15555 


/ERROR, 15555 OR 05555 CONTENTS 
/NO • AC, OAC failed 



59 


BX8K 


BX8K 


PA 51^ 

P3425 207462 

03426 056666 

03427 556666 

03430 741000 

03431 740040 

03432 207463 

03433 057777 

03434 557777 

03435 741000 

03436 740040 

03437 207466 

03440 052525 

03441 552525 

03442 741000 

03443 740040 

03444 207467 

03445 055252 

03446 555252 

03447 741000 

03450 740040 


03451 744000 

03452 207454 

03453 052525 

03454 055252 

03455 057777 

03456 051000 

03457 051111 

03460 740001 

03461 750200 

03462 740040 

03463 312525 

03464 315252 

03465 317777 

03466 311000 

03467 311111 

03470 740001 

03471 740200 

03472 740040 


03473 447517 

03474 603374 

03475 106336 

03476 106362 


LAC K16S 
DAC 16666 
SAD 16666 
SKP 

£465 WALT 

lac K17S 
DAC 17777 
SAD 17777 
SKP 

£466 WALT 

LAC K010 
DAC 12525 
SAD 12525 
SKP 

£467 HALT 

LAC K101 
DAC 15252 
SAD 15252 
SKP 

£468 HALT 

/ 

/ 

/sequential oac 
/ 

CLl 

lac K7S 
OAC 12525 
DAC 15252 
OAC 17777 
DAC 11000 
OAC mil 

CMA 

CLAiSiA 
£469 HALT 

ADD 12525 
ADD 15252 
ADD 17777 
ADD 11000 
ADO 11111 
CMA 
A 

£470 HALT 

/ 

ISH W0PK3 

JMP dacac 

JMS GENRAN 
JMS CKNO 
.EJECT 


/AC • 166666 


/EPROP. 16666 CP 06666 CONTENTS 
/fwOT » AC, OAC TAILrO 
/AC s 17777 


/ERROR. 17777 OR 07777 CONTENTS 
/NOT * AC, OAC failed 
/AC ■ 252525 


/ERROR, 12525 OR 02525 CONTENTS 
/AC 9 AC, DAC failed 
/AC 9 525252 


/ERROR, 15252 OR 05252 CONTENTS 
/NOT • AC, OAC FAILED 


/L » 0 
/AC ■ 1*S 


/AC 9 0 

/ERROR, AC not 1»S AFTER OAC SERIES 
/ONES 
/ONES 
/ONES 
/ONES 
/ONES 

/AC 9 0 

/ERROR, OAC failed, ONE OR MORE 
/ADDRESSES NOT ovES 

/CHECK DCNE looping 
/LOOP 

/GET NO, for NEXT LOOP 



} 


Pace 60 bxsk bx8k 


/TEST iSH 


{^3477 

207411 

/ 

ISZAC 

LAC K0 

/AC * 0 



73500 

050100 


QAC 10100 




03501 

450100 


IS? 10100 




03502 

751001 


SKP5CI.AICMA 




03503 

740040 

E47l 

HAtT 

/ERROR. IS2 SKIPPED 



03504 

507412 


AMO K1 

/AC « 1 



03505 

550100 


SAD 10100 




03506 

741000 


SKP 




03507 

740040 

E472 

MALT 

/ERROR. 1^100 OP 0?100 
/IS2 failed 

NOT 

1 

03510 

207511 


LAC H400K 

/AC » 377777 



03511 

050100 


OAC 10100 




03512 

450100 


ISZ 10100 




03513 

751001 


SKPICLAJCMA 




03514 

740040 

E473 

MALT 

/ERROR, IS2 skipped 



03515 

507435 


ANiO K400i< 




03516 

550100 


SAD 10100 




03517 

741000 


SKP 




03520 

740040 

E474 

MALT 

/ERROR, 10100 OR 00100 

/ISH failed 

not 

400000 

03521 

207503 


LAC Ml 

/AC s 777776 



03522 

050100 


OAC 10100 




03523 

450100 


ISI 10100 




03524 

751001 


SKPJCLAICMA 




03525 

740040 

C475 

HALT 

/ERROR, ISH skipped 



03526 

507454 


AND K75 




03527 

550100 


SAO 10100 




03530 

741000 


SKP 




03531 

740040 

£476 

HALT 

/ERROR, 10100 OR 00100 
/ISH failed 

not 

777777 

03532 

207503 


LAC Ml 

/AC f 777776 



03533 

057777 


DAC 17777 




03534 

457777 


ISZ 17777 




03535 

751001 


SKPICLAJCMA 




03536 

740040 

E477 

MALT 

/error, ISH SKIPPED 



03537 

507454 


AND k7S 




03540 

557777 


SAO 17777 




03541 

741000 


SKP 




03542 

740040 

£478 

halt 

/ERROR, 1777 OR 07777 
/ISH failed 

not 

777777 

03543 

207511 


LAC M400K 

/AC P 377777 



03544 

057777 


OAC 17777 




03545 

457777 


IS2 17777 




03546 

751001 


SKPICLAJCMA 




03547 

740040 

£479 

HALT 

/ERROR, ISH St<IPPFD 



03550 

507435 


AMD K400i< 




03551 

557777 


SAD 17777 




03552 

741000 


SKP 

.EJECT 






^1 

bxsk 

BX8K 


03553 

740040 

E480 

MALT 

03554 

207411 


LAC k0 

03555 

057777 


DAC 17777 

03556 

457777 


ISZ 17777 

03557 

751001 


SKP ! CLA ! C 

03560 

740040 

E481 

malt 

03561 

507412 


AND K1 

03562 

557777 


SAD 17777 

03563 

741000 


SKP 

03564 

740040 

E482 

malt 

03565 

750000 


CLA 

03566 

247454 


XOR k7S 

03567 

051111 


DAc mil 

03570 

451111 


ISH mil 

03571 

740040 

E463 

MALT 

03572 

211111 


lac mil 

03573 

740200 


SZA 

03574 

740040 

£484 

malt 

03575 

750000 


CLA 

03576 

247454 


XOR k7S 

03577 

052222 


DAC 12222 

03600 

452222 


ISZ 12222 

03601 

740040 

'E405 

malt 

03602 

212222 


lac 12222 

03603 

740200 


SZA 

03604 

740040 

E466 

HALT 

03605 

750000 


CLA 

03606 

247454 


XOR K7S 

03607 

053333 


DAC 13333 

03610 

453333 


ISZ 13333 

03611 

740040 

£487 

malt ^ 

03612 

213333 


lac 13333 

03613 

740200 


SZA 

03614 

740040 

E488 

w^LT 

03615 

750000 


CL4 

03616 

247454 


XOR K7S 

03617 

054444 


DAC 14444 

03620 

454444 


151 14444 

03621 

740040 

£489 

HALT 

03622 

214444 


lac 14444 

03623 

740200 


SZA 

03624 

740040 

E490 

HALT 


/ERRORi 17777 Or 0777 ^TOT 4^0700 
/IS2 failed 


/ERROR. ISZ skipped 


/ERROR. 17777 OR 07777 fvOT 1 

/ISZ failed 

/AC ■ 0 
/AC s 1*S 


/ERROR. ISZ fared TO SKIP 


/ERROR# mil OR 01111 NOT ? 
/ISZ failed 
/AC 9 0 
/AC ■ 1»S 


/ERROR. ISZ fared TO SKIP 


/ERROR. 12222 OR 02222 NOT 0 

/ISZ failed 

/AC • I’S 


/ERROR. ISH DID NOT SKIP 


/ERROR. 13333 OR 03333 NOT 0 

/ISZ failed 

/AC s 1»S 


/ERROR. ISZ OID NOT SKIP 


/ERROR. 1^444 OR 04444 NOT 
/ISZ FARED 


.EJECT 



f 


62 

BX8k 

BXSK 



03625 

750000 


CL* 


03626 

247454 


XOR K7S 

/AC ■ 1»S 

03627 

055555 


DAC 15555 


03630 

455555 


ISZ 15555 


03631 

740040 

E491 

WALT 

/ERROR, ISZ DID NOT Skip 

03632 

215555 


LAC 15555 


03633 

740200 


SZA 


03634 

740040 

E492 

WALT 

/ERROR, 15555 OR 05555 \'CT ^ 





/ISZ failed 

03635 

750000 


CLA 


03636 

247454 


XOR k7S 

/AC * 1»S 

03637 

056666 


OAC 16666 


03640 

456666 


ISZ 16666 


03641 

740040 

£493 

malt 

/ERROR, ISZ niD NOT SKIP 

03642 

216666 


LAC 16666 


03643 

740200 


SZA 


03644 

740040 

E494 

HALT 

/ERROR, 16666 OR 06666 NOT 0 





/I5Z failed 

03645 

750000 


CLA 


03646 

247454 


XOR K7S 

/AC e 1»S 

03647 

057777 


DAC 17777 


03650 

457777 


ISZ 17777 


03651 

740040 

£495 

HALT 

/ERROR, ISH DID NOT SKIP 

03652 

217777 


lac 17777 


03653 

740200 


SZA 


03654 

740040 

E496 

HALT 

/ERROR, 17777 OR 07777 NOT 7 





/ISZ failed 

03655 

750000 


CLA 


03656 

247454 


XOR K7S 

/AC ■ 1»S 

03657 

052525 


OAC 12525 


03660 

452525 


ISZ 12525 


03661 

740040 

E497 

HALT 

/ERROR* ISZ DID NOT SKIP 

03662 

212525 


lac 12525 


03663 

740200 


SZA 


03664 

740040 

E490 

HALT 

/ERROR, 12525 OR 02525 NOT 7 





/ISZ failed 

03665 

750000 


CLA 


03666 

247454 


XOR K7S 

/AC • 1»S 

03667 

055252 


OAC 15252 


03670 

455252 


ISZ 15252 


03671 

740040 

C499 

HALT 

/ERROR, ISZ OlO NOT SKIP 

03672 

215252 


lac 15252 


03673 

740200 


SZA 


03674 

740040 

£500 

HALT 

/ERROR, 15252 OR 05252 nOT 0 


/isz failed 


EJECT 



8i^63 

BX6k 

6X8K 





/TEST 

/ 

ISZ» SKP 


03675 

207454 

f 

lac K7S 

/AC « 1*S 

03676 

052525 


DAC 12525 

/12525 dr C2525 

03677 

055252 


DAC 15252 

/15252 or 05?52 

03700 

057777 


OAC 17777 

/17777 OR ?7777 

03701 

051000 


DAC 11000 

/11000 o» 

03702 

050100 


DAC 10100 

/10100 O'"' 

03703 

452525 


ISZ 12525 


03704 

741000 


SKP 


03705 

455252 


ISZ 15252 


03706 

741000 


SKP 


03707 

457777 


ISZ 17777 


03710 

741000 


SKP 


03711 

451000 


ISZ 11000 


03712 

741000 


SKP 


03713 

450100 


ISZ 10100 


03714 

740040 

E501 

halt 

/ERROR. ISZ DID NOT SKIP 

03715 

312525 


ADD 12525 


03716 

315252 


ADD 15252 


03717 

317777 


ADD 17777 


03720 

311000 


ADO 11000 


03721 

310100 


add 10100 


03722 

740001 


CMA 


03723 

740200 


S2A 


03724 

740040 

E502 

/ 

malt 

/ERROR, all ADRS. not C 



/ 

/SEOUEnjTIAL IS2, NO 

•SKIP 

03725 

207511 

f 

LAC M400K 

/AC • 377777 

03726 

052525 


OAC 12525 

/OR 02525 

03727 

055252 


OAC 15252 

/OR 05252 

03730 

057777 


OAC 17777 

/OR 07777 

03731 

051000 


DAC 11000 

/OR 01000 

03732 

050100 


OAC 10100 

/OR 00100 

03733 

452525 


ISZ 12525 


03734 

455252 


ISZ 15252 


03735 

457777 


ISZ 17777 


03736 

451000 


ISZ 11000 


03737 

450100 


ISZ 10100 


03740 

750000 


CLA 

/AC * 0 

03741 

312525 


ADO 12525 


03742 

315252 


ADD 15252 


03743 

317777 


ADD 17777 


03744 

311000 


add 11000 


03745 

310100 


ado 10100 


03746 

247436 


XOP K402K 

/RE SUL 7 = 

03747 

740200 


sza 


03750 

740040 

E503 

malt 

/ERROR. ALL ADqrS, \CT 4i 


.EJECT 



PACE 64 

bxbk 

BX8K 





/TEST 

IS2»SKPi skip 


03751 

207454 

/ 

lac K7S 

/AC ■ 1»S 

03752 

055252 


DAC 15252 


03753 

455252 


IS2 15252 


03754 

741000 


SKP 


03755 

741000 


SKP 

/ERROR. iSZ-SKtP nio not skip 

03756 

740040 

E504 

halt 



/TEST 

M 

SKP*IS2i SKIP 


03757 

207454 

/ 

LAC K7S 

/AC » 17S 

03760 

055252 


OAC 15252 


03761 

741000 


SKP 


03762 

740000 


\OP 


03763 

455252 


ISH 15252 


03764 

740040 

E505 

HALT 

/ERROR. SKP-lSz DID ^OT SKIP 



y 

/TEST 

M 

SKP»IS2i no-skip 


03765 

207411 

f 

lac K0 

/AC « 0 

03766 

055252 


DAC 15252 


03767 

741000 


SKP 


03770 

740000 


NOP 


03771 

455252 


ISZ 15252 


03772 

741000 


SKP 

/ERRCR. sKP-is? Skipped 

03773 

740040 

E506 

i 

HALT 

03774 

447517 

f 

iSH W0PK3 

/CHECK done looping 

03775 

603477 


gHP iSZac 

/LOOP 

03776 

106336 


JHS GENRAN 

/GET NO. roR NEXT LOOP 

03777 

106362 


JMS CKNO 
.EJECT 





BX8k 

BX8K 





/TEST 

4 

JMP 


04000 

207552 

/ 

LAC JMPrET 


04001 

740200 


S2A 

/ERROR JMP .oT. .*4 OR ,*5 r&IL.Ln 

04002 

740040 

E507 

WALT 

04003 

204163 

INIT4< 

lac JMPSEQ 

/LOAD 4k wITM jMP TO 70 

04004 

047552 


DAC JMPRET 

04005 

204005 


lac , 


04006 

507437 


AND K10K 

/SEE If IN UPPER 4K NOW 

04007 

740200 


SZA 


04010 

604014 


JMP .*4 

/IN upper 4K 

04011 

207437 


LAC KieK 

/lower 4k 

04012 

047513 


DAC RJCNT 


04013 

604020 


JMP ,*5 


04014 

207421 


lac K20 


04015 

047513 


OAC RJCNT 


04016 

741000 


SKP 


04017 

147552 


OHM JMPRET 

/clear error Table 

04020 

204163 


lac jmpseq 


04021 

067513 


OAC» RJCNT 

/STORE JMP 70 

04022 

447513 


ISZ RJCNT 

/INCR, address 

04023 

207513 


lac rjcnt 

/WILL t SAO 07777 WHEN In 

04024 

546007 


SAO K17777 

04025 

741000 


SKP 

/ UPPER 4K 

04026 

604017 


JMP ..T 


04027 

207552 


lac JMPRET 


04030 

740200 


SZA 


04031 

740040 

C506 

WALT 

/ERRORi JMPP,*4, ,*5 OR ,m7 FAILED 

04032 

204164 


lac moo 

/PRESS continue TO DETERMINE 

04033 

044000 


OAC E507.2 

/JMP FAIlDRE 

04034 

740000 

MOOX 

i 

NOP 


04035 

207553 

f 

LAC Jill 


04036 

740200 


S2A 


04037 

740040 

E509 

WALT 

/ERRORf RJMP OR JMP TO lllll 
/OR 01111 failed 

04040 

204165 


lac RJlll 


04041 

047553 


OAC Jill 

/STORE JMp ADDRESS IN TABLE 

04042 

051111 


OAC mil 

/JMP TO mil OR 01111 

04043 

611111 


JMP mil 

04044 

741000 


SKP 


04045 

147553 

RJMPl 

DIM Jill 

/clear error word table 

04046 

207554 


lac j222 


04047 

740200 


SZA 


0405-0 

740040 

E510 

halt 

/ERRORf RJMP Or JMP TO 12222 
/OR 02222 failed 

04051 

204166 


lac RJ222 


04052 

047554 


DAC J222 


04053 

052222 


DAC 12222 


04054 

612222 


JMP 12222 

/JMP 122? OR 02222 

04055 

741000 


SKP 


04056 

147554 

RJHP2 

DHM J222 
•EJECT 

/clear error table 



PAGE 66 


BX8K 


BX6K 


04057 

207555 


lac J333 


04060 

740200 


S2A 


04061 

740040 

E5U 

HALT 

/ERROR. RJMP OR JMP TO 13333 
/OR 03333 tailed 

34062 

204167 


lac RJ333 


04063 

047555 


OAC J333 


04064 

053333 


OAC 13333 


04065 

613333 


JHP 13333 

/JMP TO 13333 OR 03333 

04066 

741000 


SKP 


04067 

147555 

RJHP3 

i 

02M j333 

/clear error table 

04070 

207556 

f 

lac J444 


04071 

740200 


SZA 


04072 

740040 

E512 

HALT 

/ERROR. RJMP OR JMP TO 14444 
/OR 04444 PA!LED 

04073 

204170 


lac RJ444 


04074 

047556 


OAC J444 


04075 

054444 


OAC 14444 


04076 

614444 


jMP 14444 

/JMP TO 14444 OR 04444 

04077 

741000 


SKP 


04100 

147556 

RJMP4 

i 

OZM j444 

/clear error table 

04101 

207557 

f 

lac J555 


04102 

740200 


SZA 

/ERROR. RJHP OR JMP TO 15555 

04103 

740040 

E513 

HALT 

/OR 05555 failed 

04104 

204171 


lac RJ555 


04105 

047557 


OAC j555 


04106 

055555 


OAC 15555 


04107 

615555 


JMP 15555 

/JMP TO 15555 OR 05555 

04110 

741000 


SKP 


04111 

147557 

RJMP5 

j 

OZM j555 

/CLEAR error table 

04112 

207560 

/ 

LAC J666 


04113 

740200 


SIA 


04114 

740040 

E514 

HALT 

/error* RJMP OR JMP TO 16666 
/OR 06666 failed 

04115 

204172 


LAC RJ666 


04116 

047560 


OAC J666 


04117 

056666 


OAC 16666 


04120 

616666 


JMP 16666 

/JMP TO 16666 OR 06666 

04121 

741000 


SKP 


04122 

147560 

RJMP6 

DIM J666 

/clear error table 


/ 

.EJECT 



04123 

207561 


UAC J777 


04124 

740200 


S2A 


04125 

740040 

E5i5 

WALT 

/ERROR. RJMP OR jMP TO 17777 
/OR 07777 railed 

04126 

204173 


LAC RJ777 


04127 

047561 


DAC J777 


04130 

057777 


DAC 17777 


04131 

617777 


JMP 17777 

/JMP TO 17777 OR 07777 

04132 

741000 


SKP 


04133 

147561 

RJMP7 

J 

OHM J777 

/CLEAR error table 

04134 

207563 

/ 

LAC J252 


04135 

740200 


S2A 


04136 

740040 

E516 

HALT 

/ERROR, RJMP OP HP TO 12525 
/OR 02525 railed 

04137 

204174 


lac RJ252 


04140 

047563 


OAC J252 


04141 

052525 


OAC 12525 


04142 

612525 


JMP 12525 

/JMP TO 12525 OR 025?5 

04143 

741000 


SKP 


04144 

147563 

RJMP8 

OHM j252 

/clear error table 

04145 

207562 

/ 

LAC J525 


04146 

740200 


SEA 


04147 

740040 

E517 

HALT 

/ERROR, RJMP OR jMP TO 15252 
/OR 05252 failed 

04150 

204175 


LAC RJ525 


04151 

047562 


OAC J525 


04152 

055252 


DAC 15252 


04153 

615252 


JMP 15252 

/JMP TO 15252 OR 05252 

04154 

741000 


SKP 


04155 

147562 

RJMP9 

J 

DZM J525 

/clear error table 

04156 

447517 


182 W0RK3 

/CHECK done LOOPINC 

04157 

604035 


JMP M0DX*1 

/LOOP 

04160 

106336 


JMS GENRAN 

/GET NO. FOR NEXT LOOP 

04161 

106362 


JMS CKNO 


04162 

604176 

M 

JMP TSCAL 

/TEST CAL 



/JMP constants, these 

1 

ARE MODIFIED WHEN iN HI 4K 

04163 

600112 

r 

JMPSCQ 

JMP SEQUEN 


04164 

604035 

MOO 

JMP MODX*l 


04165 

604045 

RJUl 

JMP RJMPl 


04166 

604056 

RJ222 

JMP RJMP2 


04167 

604067 

RJ333 

JMP RJMP3 


04170 

604100 

RJ444 

JMP RJMP4 


04171 

604111 

RJ555 

JMP RJMP5 


04172 

604122 

RJ666 

JMP RJMP6 


04173 

604133 

RJ777 

JMP RJMP7 


04174 

604144 

RJ252 

JMP RJMP8 


04175 

604155 

RJ525 

JMP RJMP9 

T im mw 



.eject 



PACE 68 


BX8k 


BX8K 



/ERRORi CAl from 17757 OR 07757 
/CLEAR EXTEND MqcE 
/AC ■ 0# link • ^ 

/AC ■ 77^020 

/CAL AT 10704 OR 00704 

/STORE error code 2021 

/RJMP FROM CAL 

/JMP TO 10704 OR 00704 

/clear error table 

/i0705 OR 00705 

/ERRORi (20) NOT 210705 OR 200705 


/ERROR (10T04 OR 00704) NOT P 


/ERROR, CAL FROM 10704 OR 00704 
/LINK f 1 

/STORE error code 2120 

/RJMP FROM CAL 

/JMP TO 10704 OR 00704 

/clear error table 

/4i0705 OR 400705 

/ERROR, (20) Not 610705 OR 600705 


/ERROR (10T04 OR 00704) NOT 0 


/CHECK done looping 
/LOOP 

/get no, for next loop 


/TEST JMS 



04252 604212 

04253 210705 

04254 604233 

04255 610705 


/CAl constants, these are modified when In hi 4K 
/ 

RCAL0 JMP RCALS0 
KCAl.0 210705 
rcali JMP rcalsi 
KCALE 610705 

.Eject 



I 


PACE 70 BX8k BX8K 

/TEST JMS 


/ 


04256 

207566 

TSJMS 

lac JSM71 



04257 

740200 


Sik 



04260 

740043 

E522 

malt 

/ERROR. 

JMS PROM 07777 TO 11111 





/OR PROH 

l 17777 TO 01111 

04261 

744000 


CLL 

/LINK * 

0 

04262 

204543 


lac RJSM71 


/JMP TO RJMS71 

04263 

051112 


OAC 11112 


/RJMP From JMS DESTU: 

04264 

204544 


LAC RSM71 


/JMS Hill 

04265 

047777 


OAC 07777 



04266 

047566 


OAC JSM71 



04267 

771112 


law 11112 


/AC • 771112 

04270 

607777 


JHP 07777 



04271 

147566 

RJMS71 

OZM JSM71 


/CLEAR error table 

04272 

211111 


lac mil 



04273 

544602 


SAO K210K 



04274 

741000 


SKP 



04275 

740040 

E523 

halt 

/ERROR. 

(11111 OR 01111) NOT 





/210000 

OR 200000 

04276 

207567 


lac JSM72 



04277 

740200 


SZA 



04300 

740040 

E524 

HALT 

/ERROR. 

JMS FROM 07776 TO 12222 





/OP PROM 

1 17776 TO 02222 

04301 

707704 


lem 



04302 

744000 


CLL 



04303 

204546 


t.AC RJSM72 


/JMP TO RJMS72 

04304 

052223 


OAC 12223 



04305 

204547 


LAC RSM72 


/JMS 12222 

04306 

047776 


OAC 07776 



04307 

047567 


OAC JSM72 



04310 

772223 


law 12223 


/AC P 772223 

04311 

607776 


JMP 07776 



04312 

147567 

RJMS72 

OZM JSM72 


/CLEAR error table 

04313 

212222 


lac 12222 



04314 

544603 


SAD K277 



04315 

741000 


SKP 



04316 

740040 

E525 

halt 

/ERROR. 

(12222 OR 02222) NOT 





/207777 

OR 217777 

04317 

207570 


lac JSH73 



04320 

740200 


SZA 



04321 

740040 

E526 

HALT 

/ERROR. 

JMS PROm 07775 TO 13333 





/OR PROW 

1 17775 TO 03333 

04322 

707704 


LEM 



04323 

744000 


CLL 



04324 

204551 


lac RJSm73 


/JMP TO RJM873 

04325 

053334 


DAC 13334 



04326 

204552 


LAC RSM73 


/JMS 13333 

04327 

047775 


OAC 07775 



04330 

047570 


OAC JSM73 



04331 

773334 


law 13334 


/AC « 773334 

04332 

607775 


JMP 07775 




.EJECT 



PAGl^l 

bxbk 

BX8K 



?'4333 

147570 

RsIMS73 

OZM JSM73 

/CLEAR error TABLE 

?4334 

213333 


lac 13333 


24335 

544604 


SAD K276 


24336 

741000 


SXP 


24337 

740040 

E527 

WALT 

/ERROR. (13333 OR 23333) \OT 
/207776 OR 217776 

04340 

207571 


lac JSM74 


04341 

740200 


SZA 


04342 

740040 

E528 

HALT 

/ERROR. JMS FRow 27774 TO 14444 
/OR FROM 17774 TO 04444 

04343 

707704 


leh 


04344 

744000 


CLl 


04345 

204554 


lac RJSM74 

/JMP RJMS74 

04346 

054445 


OAC 14445 


04347 

204555 


lac RSH74 

/JMS 14444 

04350 

047774 


OAC 07774 


04351 

047571 


DAC JSM74 


04352 

774445 


law 14445 

/AC « 774445 

04353 

607774 


JMP 07774 


04354 

147571 

RJMS74 

OZM JSM74 

/CLEAR ERROR TABLE 

04355 

214444 


lac 14444 


04356 

544605 


SAO K275 


04357 

741000 


SKP 


04360 

740040 

E529 

halt 

/ERROR. (14444 OR 04444) KOT 
/207775 OR 217775 

04361 

207572 


LAC JSM75 


04362 

740200 


SZA 


04363 

740040 

E530 

HALT 

/ERROR. JMS from 07773 TO 15555 
/OR FROM 17773 TO 05555 

04364 

707704 


LEM 


04365 

744000 


CLL 


04366 

204557 


lac RWSH75 

/JMP TO RJMS75 

04367 

055556 


OAC 15556 


04370 

204560 


LAC RSM75 

/JMS 15555 

04371 

047773 


DAC 07773 


04372 

047572 


OAC JSM75 


04373 

775556 


law 15556 

/AC » 775556 

04374 

607773 


JMP 07773 


04375 

147572 

RJMS75 

OZM JSM75 

/CLEAR error table 

04376 

215555 


LAC 15555 


04377 

544606 


SAO K274 


04400 

741000 


SKP 


04401 

740040 

E531 

HALT 

/ERROR. (15555 OR 05555) NOT 
/207774 OR 217774 

04402 

207573 


lac JSM76 


04403 

740200 


SZA 


04404 

740040 

£532 

HALT 

/ERROR. JMS from 07772 TO 16666 
/OR 17772 TO 06666 




.EJECT 




PACE 72 


BX8k 


BX8K 


04405 

707704 


lem 


04406 

744000 


CLL 


04407 

204562 


LAC 

RJSM76 

04410 

056667 


OAC 

16667 

04411 

204563 


LAC 

RSM76 

04412 

047772 


OAC 

07772 

04413 

047573 


OAC 

JSH76 

04414 

776667 


law 

16667 

04415 

607772 


JMP 

07772 

04416 

147573 

RJMS76 

OZM 

JSM76 

04417 

216666 


lac 

16666 

04420 

544607 


SAD 

K273 

04421 

741000 


SKP 


04422 

740040 

E533 

WALT 

04423 

207575 


lac 

JS252 

04424 

740200 


S2A 


04423 

740040 

£536 

HALT 


.EJECT 


/JMP TO RJMS76 
/JWS 166^6 

/AC « 776667 
/CLEAR error table 

/ERROR. (16666 OR 06666) ^OT 
/207773 OR 217773 

/ERROR. JMS PROM 12525 TO 15252 
/OR PROM 02525 TO 05252 



04426 

744002 


CLLICHL 

/LINK » 

1 

04427 

204567 


lac RJSM25 


/JMP TO RJMS14 

04430 

055253 


OAC 15253 



04431 

204570 


LAC RSM25 


/JMS 15252 

04432 

052525 


OAC 12525 



04433 

047575 


OAC JS252 



04434 

775253 


law 15253 


/AC « 775253 

04433 

612525 


JHP 12525 



04436 

147575 

RJMS14 

OHM JS252 


/clear error table 

04437 

215252 


lac 15252 



04440 

544610 


SAO K626 


/612526 OR 602526 

04441 

741000 


SKP 



04442 

740040 

E537 

WALT 

/ERROR. 

(15252 OR 05252) NOT 





/612526 

OR 602526 

04443 

207576 


lac jS525 



04444 

740200 


S2A 



04443 

740040 

£538 

halt 

/ERROR. 

JMS prom 15252 TO 12525 





/OR 05252 TO 02525 

04446 

744002 


CLLICHL 

/LINK « 

1 

04447 

204572 


LAC RJSm52 


/RJMP To RJMS15 

044?0 

052526 


OAC 12526 



04451 

204573 


LAC RSM52 


/JMS 12525 

04452 

055252 


OAC 15252 



04453 

047576 


OAC JS525 



04454 

772526 


law 12526 


/AC P 772526 

04455 

615252 


gMP 15252 



04456 

147576 

RJMS15 

02H JS525 


/CLEAR error table 

04457 

212525 


lac 12525 



04460 

344611 


SAO K615 


/615253 OR 605253 

04461 

741000 


SKP 



04462 

740040 

E539 

halt 

/ERROR. 

(12525 OR 02525) NOT 





/615253 

OR 605253 



/POP-15 

BASIC EXERCISER 

'■ TAPE 5 



/TEST JMS SERIES 



04463 

207577 

9 

lac JSSS 



04464 

740200 


SEA 



04463 

740040 

E540 

halt 

/ERROR. 

JMS SERIES TAILED 

04466 

744002 

/ 

CLLICML 

/LINK P 

1 

04467 

104470 

JSI 

JMS ,*1 



04470 

740040 

E541 

HALT 

/ERROR. 

JMS series 

04471 

104472 

JS2 

JMS ,*1 



04472 

740040 

E542 

HALT 

/ERROR. 

JMS SCRIES 

04473 

104474 

JS3 

JMS ,♦! 



04474 

740040 

£543 

HALT 

/ERROR. 

JMS SERIES 

04475 

707704 


LEM 



04476 

744000 


CLL 



04477 

104500 

JS4 

JMS ,♦! 



04300 

740040 

E544 

halt 

/ERROR. 

JMS SERIES 

04301 

147577 

RJMSS 

02M JSSS 


/ClEAR error table 

04302 

204576 


LAC KjSl 


/TEST JSlf link = 1 

04303 

347442 


TAO K600K 



04504 

740001 


CMA 



04505 

344470 


TAD JS1*1 





Pace 74 bxsk 

04506 740001 

04507 740200 

04510 740040 

04511 204577 

04512 347442 

04513 740001 

04514 344472 

04515 740001 

04516 740200 

04517 740040 

04520 204600 

04521 347442 

04522 740001 

04523 344474 

04524 740001 

04525 740200 

04526 740040 

04527 204601 

04530 347441 

04531 740001 

04532 344500 

04533 740001 

04534 740200 

04535 740040 

04536 447517 

04537 604256 

04540 106336 

04541 106362 

04542 604613 


BXSK 

CMA 

$ZA 

E545 HA|,T 

LAC KJS2 
tad K600K 
CMA 

TAD JS2+1 

CMA 

SZA 

E546 HALT 

lac KJS3 
tad K600K 
CMA 

TAD JS3*1 
CMA 

S0A 

E547 HALT 

lac KJS4 
TAD K200K 
CMA 

TAD JS4*i 

CMA 

SZA 

E548 HALT 

/ 

ISZ W0RK3 
JMP TSJMS 
JMS GENBAN 
JMS CKNO 
JMP TSXCT 
.EJECT 


/ERROR. JS1*1 

/TEST JS2i L1^J^ * 1 


/ERROR, JS2*1 

/TEST JS3# LINK * 1 


/ERROR. JS3*1 

/TEST JS4# EXT « 0, LINK e 2 


/ERROR, JS4*1 

/CHECK DONE LOOPING 
/LOOP 

/GET NO. FOR NEXT LOOP 


/TEST XCT 



PAG^^75 BX8k BX8K 

/constants for JMS, modified when in hi 4K 
/ 

04543 604271 RJSM71 JMP RJHS71 

04544 111111 RSM71 lllll 

04545 010000 K 100 00 10000 

04546 604312 RJSM72 JMP RwlMS72 

04547 112222 RSM72 jMS 12222 

04550 007777 K77 07777 

04551 604333 RJSM73 JMP RJMS73 

04552 113333 RSM73 JMS 13333 

04553 007776 K76 07776 

04554 604354 RJSM74 jMP PJMS74 

04555 114444 RSM74 jMS 14444 

04556 007775 k75 07775 

04557 604375 RJSM75 JMP RJMS75 

04560 115555 RSM75 JMS 15555 

04561 007774 K74 07774 

04562 604416 RJSM76 JMP RJMS76 

04563 116666 RSM76 jMS 16666 

04564 007773 k73 07773 

04565 117777 RSM77 JMS 17777 

04566 007772 k72 07772 

04667 604436 RJSM25 JMP RJMS14 

04570 115252 RSM25 JMS 15052 

04571 412526 K426 412526 

04572 604456 RJSM52 JMP RJMS15 

04573 112525 RSH52 JMS 12525 

04574 007771 K71 07771 

04575 415253 K4t5 415253 

04576 004470 KjSl JSI*1 

04577 004472 KJS2 JS2*1 

04600 004474 KJS3 JS3*1 

04601 004500 KJS4 JS4«1 

04602 210000 K210K 210000 

04603 207777 K277 207777 

04604 207776 K276 207776 

04605 207775 K275 207775 

04606 207774 K274 207774 

04607 207773 K273 207773 

04610 612526 K626 612526 

04611 615253 K615 615253 

04612 215253 K2152 215253 

/ 


EJECT 
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BX8K 


BX8K 


/TEST XCT 
/ 

04613 754003 TSXCT CL A J CMA J CLL J CMU /AC « ONESi LIMk « 0 

04614 404615 XCT ,*1 /MOP 

04615 740000 NOP 

04616 740400 SNL 

04617 740040 E549 HALT /ERRORl XCT NOP| LINK UAS RESET 

04620 740001 CHA 

04621 740200 S2A 

04622 740040 E550 HALT /ERRORl XCT NQPj AC MOT ONES 

/ 

/TEST EXECUTE NOPi Ac « 0, LINK • 0 


04623 

754000 


CLAICLL 

04624 

404625 


XCT ,♦! 

04629 

740000 


NOP 

04626 

741400 


SEL 

04627 

740040 

E59l 

HALT 

04630 

740200 


SZA 

04631 

740040 

E592 

HALT 



/TEST 

XCT SKP 

04632 

407501 


XCT KSKP 

04633 

740040 

E593 

HALT 

04634 

790001 


CLAICHA 

04635 

407902 


XCT KCLA 

04636 

740200 


S2A 

04637 

740040 

E554 

HALT 



/TEST 

XCT LAW 

04640 

750000 


CLA 

04641 

407454 


XCT k7S 

04642 

740001 


CHA 

04643 

740200 


S2A 

04644 

740040 

£555 

HALT 



/TEST 

XCT ISZ 

04645 

750001 


claicha 

04646 

057777 


OAC 17777 

04647 

405066 


XCT XCTlSi 

04650 

740040 

E556 

HALT 



/TEST 

XCT TAO 

04651 

744000 


CLLJCML 

04652 

777777 


law 17777 

04653 

057777 


OAC 17777 

04654 

405070 


XCT XCTTAO 

04655 

740200 


SZA 

04656 

740040 

E557 

halt 

04657 

741400 


SZL 

04660 

740040 

E558 

HALT 


.EJECT 


/AC « 0» link s ? 


/ERRORl XCT NOP| LINK WAS SET 
/ERRORl XCT MOP| AC MOT 0 


/SKIP 

/ERRORl XCT SKP FAILED 
/AC > ONES 

/CLA 

/ERRORl XCT CLA FAILED 


/AC R 0 
/law « 17777 
/AC P 0 

/ERRORl XCT law FAILED 
/AC i ONES 

/iSi 17777 

/ERRORl XCT ISi FAILED TO SKP 


/LINK « 1 

/AC i Ones 
/17777S777777 
/TAD K1 

/ERRORl XCT TAD FAILED, AC NOT 0 
/ERRORl XCT TAD FAILED LINK 



Pag; 
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BX8k 

BX8K 





/TEST 

XCT RAL# AC * 

ones; link • 1 

04661 

754003 


CLA!CMA!CLL.1 

ICML /AC a ONESi LINK * 1 

04662 

407524 


XCT XCTraL 

/RAL 

04663 

740001 


CMA 

/AC * 0 

04664 

740200 


SZA 


04665 

740040 

E559 

halt 

/ERROR; XCT RAL TAILED AC DROPPED A 

04666 

744400 


SNLICLL 


04667 

740040 

E560 

WALT 

/ERROR; XCTRAL FAILED LINK DROPPED 



/TEST 

XCT DAC 


04670 

207450 


LAC K3S 

/AC a 333333 

04671 

405067 


XCT XCTDAC 

/OAC 17777 

04672 

347451 


TAD K4S 

/AC a 777777 

04673 

740001 


CMA 

/AC a 0 

04674 

740200 


SZA 


04675 

740040 

E561 

HALT 

/ERROR; XCT DAC FAlLEDi K3S 


/NOT STORED AT 17777 


EJECT 



PACE 78 


bxbk 


BXSK 


0A676 207600 

04677 740200 

04700 740040 

04703. 205044 

04702 047600 

04703 051111 

04704 205045 

04705 056666 

04706 205046 

04707 051112 

04710 611111 

04711 147600 

04712 211111 

04713 545047 

04714 741000 

04715 740040 

04716 207601 

04717 740200 

04720 740040 

04721 205050 

04722 047601 

04723 052222 

04724 205051 

04725 055555 

04726 205052 

04727 052223 

04730 612222 

04731 147601 

04732 212222 

04733 545053 

04734 741000 

04735 740040 

04736 207602 

04737 740200 

04740 740040 


/TEST XCT JMS 
/ 

LAC XCTll 
S2A 

E562 halt 

LAC XTllS 
DAC XCTll 
OAC mil 
LAC XTRll 
OAC 16666 
LAC XTIR 
DAC 11112 
JMP mil 
RXCTl DZM XCTll 
lac mil 
SAO K12 
SKP 

E563 HALT 

LAC XCT12 
SZA 

£564 HALT 

lac XT12S 
OAC XCT12 
DAC 12222 
lac XTR12 
OAC 15555 
lac XT2R 
OAC 12223 
JMP 12222 
RXCT2 DZM XCT12 
lac 12222 

SAO k23 
SKP 

£565 HALT 

LAC XCT13 
8IA 
HALT 


£566 


EJECT 


/ERROR. XCT (16666 0 R 06666) 

/PROM mil OR 01111 

/XCT <16666 OR 06666) 

/OP 01111 

/JMS mil OR 01111 
/QP 06666 
/RJMP To RXCTl 
/OP 01112 

/OP 01111 AND XCT <16666 OR 06666) 
/CLEAR ERROR TABLE 
/OR 01111 


/ERROR. RJMP ADR* NOT 21111? 
/OR 201112 


/ERROR. XCT <15555 OR 05555) 
/PROM 12222 OR 02222 

/XCT (15555 OR 05555) 


/JMS 12222 OR 02222 
/RJMP To RXCT2 


/CLEAR ERROR TABLE 


/ERROR. RJMP NOT 212223 
/OR 202223 


/CRROR, XCT <14444 OR 04444) 
/PROM 13333 OR 03333 



79 BX6K 

04741 205054 

04742 047602 

04743 053333 

04744 205055 

04745 054444 

04746 205056 

04747 053334 

04750 613333 

04751 147602 

04752 213333 

04753 545057 

04754 741000 

04755 740040 

04756 207603 

04757 740200 

04760 740040 

04761 205060 

04762 047603 

04763 047776 

04764 205061 

04763 057776 

04766 205062 

04767 047777 

04770 607776 

04771 147603 

04772 207776 

04773 544603 

04774 741000 

04775 740040 

04776 207604 

04777 740200 

05000 740040 

05001 205063 

05002 047604 

05003 055252 

05004 205064 

05005 052525 

05006 205065 

05007 055253 

05010 615252 

05011 147604 

05012 215252 

05013 544612 

05014 741000 

05015 740040 


BX8K 

LAC XT13S 
OAC XCT13 
OAC 13333 
lac XTR13 
DAC 14444 
LAC XT3R 
OAC 13334 
JMP 13333 

RXCT3 OZM XCT13 
LAC 13333 
SAD K34 
SKP 

E567 HALT 

LAC XCT17 
SZA 

E568 HALT 

lac XT17S 
OAC XCT17 
OAC 07776 
LAC XTR17 
OAC 17776 
lac XT4r 
OAC 07777 
JHP 07776 

RXCT4 OHM XCT17 
lac 07776 
SAD K277 
SKP 

E569 HALT 

LAC XCT125 
SHA 

E570 halt 

lac XCT12S 
OAC XCTi25 
DAC 15252 
lac XCTR12 
OAC 12525 
lac XT5R 
OAC 15253 
JMP 15252 

RXCT5 OHM XCT125 
lac 15252 
SAD K2152 
^KP 

E571 halt 

.EJECT 


/XCT (14444 OR 04444) 


/JMS 133v 33 CP ?3333 
/RJMP To RXCT3 


/CLEAR error Table 


/ERROR, RJMP NOT 213334 OR 223334 


/ERROR, XCT (17776 OR 07776) 
/PROM 07776 OR 17776 

/XCT (17776 OR 07776) 

/OR 17776 

/JMS 07776 OR 17776 
/OR 07776 
/RJMP To RXCT4 
/OR 17777 
/OR 17776 

/CLEAR ERROR TABLE 
/FOR 17776 


/ERROR. RJMP NOT 207777 OR 217777 


/ERROR, KCT (12525 OR 02525) 
/FROM 15252 OR 05252 

/XCT (12525 OR 02525) 
/OR 05252 

/JMS 15252 OR 05252 
/RJMP To RXCT5 


/CLEAR error table 


/ERROR. RJMP NOT 215253 OR 205253 



I 
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bxbk 





/TEST : 

y 

XCT SERIES 


05016 

754003 

/ 

CIA'CMAJCULSCML, 

/AC » ONESi link « 1 

05017 

405020 


XCT ,♦!) 

XCT t+ll xCT .*1 

05020 

405021 




05021 

405022 




05022 

405023 


XCT .♦li 

XCT .♦ll XCT ,♦! 

1 05023 

405024 




05024 

405025 




05025 

405026 


XCT .Hj 

XCT ,♦11 XCT ,♦! 

05026 

405027 




05027 

405030 




05030 

405031 


XCT ,♦! 


05031 

740000 


NOP 


05032 

740001 


CMA 


05033 

740200 


SZA 


05034 

740040 

E572 

HALT 

/ERROR. XCT SERIES FAILED AC NOT ONES 

05035 

740400 


SNL 


05036 

740040 

E573 

HALT 

/ERROR. LINK Changed 

^ 05037 

447517 


ISZ W0RK3 

/CHECK done looping 

05040 

604613 


JMP tsxct 

/LOOP 

05041 

106336 


JMS GENRAN 

/GET NO rOR NEXT LOOP 

05042 

106362 


JMS CKNO 


05043 

605071 


JMP lacin 

/TEST LAC INDIRECT 

) 


/XCT CONSTAnTSi modified 

1 when in upper 4K 

05044 

416666 

XTllS 

XCT 16666 


) 05045 

mill 

XTRll 

JMS mil 


05046 

604711 

xtir 

JMP RXCTl 


05047 

211112 

K12 

211112 


05050 

415555 

xtl2S 

XCT 15555 


05051 

112222 

XTR12 

JMS 12222 


05052 

604731 

XT2R 

JMP RXCT2 


05053 

212223 

K23 

212223 


05054 

414444 

XT13S 

XCT 14444 


05055 

113333 

XTR13 

JMS 13333 


) 05056 

604751 

XT3R 

JMP RXCT3 


05057 

213334 

K34 

213334 


05060 

417776 

XTi7S 

XCT 17776 


J 05061 

107776 

XTR17 

JMS 07776 


05062 

604771 

XT4R 

JMP RXCT4 


05063 

412525 

XCT12S 

XCT 12525 


05064 

115252 

XCTR12 

JMS 15252 


05065 

605011 

XT5R 

JMP RXCT5 


05066 

457777 

XCTISZ 

ISZ 17777 


) 05067 

057777 

XCTDAC 

OAC 17777 


05070 

347412 

xcttao 

TAD K1 





.EJECT 



) 
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BXaK 


BX8K 


/TEST lac indirect 


/ 


05071 

204550 

LAC IN 

lac K77 

05072 

057777 


OAC 17777 

05073 

207511 


LAC M400K 

05074 

047777 


OAC 07777 

05075 

237777 


lac* 17777 

05076 

347435 


tad K400K 

05077 

740001 


CPA 

05100 

740200 


SZA 

05101 

740040 

E584 

t 

HALT 

05102 

204553 

/ 

lac K76 

05103 

056666 


DAC 16666 

05104 

207510 


LAC M40K 

05105 

047776 


DAC 07776 

05106 

236666 


LAC* 16666 

05107 

347434 


tad K40K 

05110 

740001 


CMA 

051X1 

740200 


SZA 

05112 

740040 

E585 

M 

WALT 

05113 

204556 

f 

lac K75 

05114 

055555 


OAC 15555 

05115 

207507 


lac M4K 

03116 

047775 


OAC 07775 

05117 

235555 


lac* 15555 

05120 

347430 


TAD K4K 

05121 

740001 


CMA 

05122 

740200 


SZA 

05123 

740040 

E586 

i 

HALT 

05124 

204561 

r 

lac K74 

05125 

054444 


DAC 14444 

05126 

207506 


LAC M400 

05127 

047774 


DAC 07774 

05130 

234444 


lac* 14444 

05131 

347425 


TAD K400 

05132 

740001 


CMA 

05133 

740200 


SZA 

05134 

740040 

E587 

i 

halt 

05135 

204564 

/ 

lac K73 

05136 

053333 


DAC 13333 

05137 

207505 


lac M40 

05140 

047773 


OAC 07773 

05141 

233333 


LAC* 13333 

05142 

347423 


TAD K40 

05143 

740001 


CMA 

05144 

740200 


SZA 

05145 

740040 

E588 

halt 

.eject 


?1111 OR 17777 


/{X7177 OR f*7777) s 

/mm 

/OR 17777 
/OR 07777 

/AC s 777777 


/ERROR. LAC* 17777 OR 07777 FAILED 


/(16666 OR 06666) * 07776 OR 17776 
/737777 

/AC B 737777 

/AC • 777777 


/ERROR. LAC* 16666 OR 06666 FAILED 


/(15555 OR 05555) » 07775 OR 17775 
/AC 8 773777 

/AC • 773777 
/AC * 777777 


/ERROR. LAC* 15555 OR 05555 FAILED 


/(1A444 OR 04444) s 07774 OR 17774 
/AC P 777377 

/AC a 777377 

/AC * 777777 


/ERROR. LAC* 14444 OR 04444 FAILED 


/(13333 oR 03333) » 07773 OR 17773 
/AC ■ 777737 

/AC a 777737 
/AC « 77777 


/ERROR. LAC* 13333 OR ^:3333 FAILED 
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BX6K 


BX8K 


05146 

204566 


lac K72 

05147 

052222 


DAC 12222 

05150 

207504 


LAC m4 

05151 

047772 


OAC 07772 

05152 

232222 


LAC» 12222 

05153 

347414 


TAD K4 

05154 

740001 


CMA 

05155 

740200 


S2A 

05156 

740040 

E589 

y 

HALT 

05157 

204574 

/ 

LAC k71 

05160 

051111 


OAC lllll 

05161 

207503 


lac Ml 

05162 

047771 


DAC 07771 

05163 

231111 


lac* lllll 

05164 

347412 


TAO K1 

05165 

740001 


CMA 

05166 

740200 


S2A 

05167 

740040 

E590 

y 

HALT 

05170 

205326 

/ 

lac INK52 

05171 

055252 


OAC 15252 

05172 

207467 


LAC K101 

05173 

052525 


OAC 12525 

05174 

235252 


lac* 15252 

05175 

347466 


TAO K010 

05176 

740001 


CMA 

05177 

740200 


S2A 

05200 

740040 

E591 

j 

HALT 

05201 

447517 

/ 

IS2 W0RK3 

05202 

605071 


JMP LACIN 

05203 

106336 


JMS cenran 

05204 

106362 


JMS CKNO 
.EJECT 


/<12222 OR 02222) « 71112 OR 17772 
/AC s 777773 

/AC « 777773 
/AC • 111111 


/ERROR, IAC« 12222 OR 02222 FAILED 


/(lllll oR 01111) ■ 7'7771 OR 17771 
/AC a 777776 

/AC « 777776 
/AC • 777777 


/ERROR, LAC* lllll OR 01111 FAILED 


/<15252 OR 05252) = r!2525 OR 12525 
/AC « 525252 

/AC ■ 525252 

/AC a 777777 


/ERROR. LAC* 15252 OR 05252 FARED 

/CHECK done looping 
/LOOP 

/GET NO, FOR NEXT LOOP 



Pa6^83 BX8k BX0K 

/TEST xcT JMS Indirect 


/ 


05205 

744000 

XTvIMSI 

Zll 


05206 

750000 


CLA 


05207 

547605 


SAD JST77 


05210 

741000 


SKP 

/ERROR. JMS OEST’B ERROR 

05211 

740040 

£592 

HALT 

05212 

206006 

/ 

lac K17776 

/DIRECT ADDRESS 

05213 

047777 


OAC 07777 

/JMS« 07777 CR 17777 

05214 

205327 


LAC JHSII 

05215 

047605 


OAC JST77 

/ERROR table 

05216 

055252 


OAC 15252 


05217 

205330 


lac RJMII 

/JMP RJS!l 

05220 

057777 


OAC 17777 


05221 

415252 


XCT 15252 

/XCT TEST 

05222 

741000 


SKP 


05223 

147605 

RJSII 

02M JST77 


05224 

217776 


LAC 17776 


05225 

504550 


AND k77 


05226 

545331 


SAD RJSIIX 

/RJSIIX a RJSII.I 

05227 

751000 


CLAISKP 

/ERROR (17776 OR 07776) NOT = 

05230 

740040 

£593 

MALT 



/ 

/ 

/TEST 

JMS INDIRECT 

/TO RJSI1*1 

05231 

744002 

/ 

STL 


05232 

750000 


CLA 


05233 

547606 


SAO JST66 


05234 

74106^® 


SKP 


05235 

74-0040 

£594 

i 

MALT 

/ERRORi JMS OEST’N ERROR 

05236 

20«023 

/ 

LAC Klllll 

/DIRECT ADR, 11111 OR 01111 

05237 

056666 


OAC 16666 

/OR 06666 

05240 

205332 


lac JSI66 

/JMS» 16666 OR 06666 

05241 

047606 


OAC JST66 

/JMS« 16666 OR 06666 AT 15252 

05242 

055252 


OAC 15252 





/OR 05252 

05243 

205333 


LAC RJMI2 

/JMP RJSI2 

05244 

051112 


OAC 11112 

/OR 01112 

05245 

615252 


JMP 15252 

/OR 05252 

05246 

741000 


SKP 

/CLEAR ERROR TABLE 

05247 

147606 

RJSI2 

OZM JST66 

05250 

211111 


lac 11111 


05251 

544611 


SAD K615 


05252 

751000 


CLAJSKP 

/ERROR, RJMP ADR, (11111 Of’' 01111) 

05253 

740040 

£595 

malt 

/NOT 615253 OR 6^5253 




.EJECT 
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6X6k 


BX8K 


05254 

750000 


CLA 

05255 

547607 


SAD JST55 

05256 

741000 


SKP 

05257 

740040 

E596 

MALT 

05260 

206021 


lac K12222 

05261 

055555 


OAC 15555 

05262 

205335 


lac JSI55 

05263 

047607 


OAC JST55 

05264 

055252 


OAC 15252 

05265 

205336 


lac RJMI3 

05266 

052223 


OAC 12223 

05267 

615252 


JMP 15252 

05270 

741000 


SKP 

05271 

147607 

RJSI3 

OZM JST55 

05272 

212222 


lac 12222 

05273 

544611 


SAD K615 

05274 

751000 


CLAtSKP 

05275 

740040 

E597 

halt 

05276 

750000 


CLA 

05277 

547610 


SAD JST44 

05300 

741000 


SKP 

05301 

740040 

E598 

i 

WALT 

05302 

206017 

/ 

lac K13333 

05303 

054444 


OAC 14444 

05304 

205337 


LAC JSI44 

05305 

047610 


DAC JST44 

05306 

055252 


OAC 15252 

05307 

205340 


LAC RJMI4 

05310 

053334 


OAC 1^334 

05311 

615252 


JMP 15252 

05312 

741000 


SKP 

05513 

147610 

RJSI4 

OZM JST44 

05314 

213333 


LAC 13333 

05315 

544611 


SAD K615 

05316 

751000 


CLAlSKP 

05317 

740040 

E599 

HALT 

05320 

447517 


ISZ WORKS 

05321 

605205 


JMP XTJMSI 

05522 

106336 


JMS GENRAN 

05323 

106362 


JMS CKNO 

05324 

700004 


CLOF 

05325 

605341 


JMP XTXCT 


.EJECT 


/ERROR. JMS DEST»N ERROR 
/DIRECT AQR, 12?22 OR ^2222 
/OR 055555 

/JHS* i5555 OR 05555 

/JMS* 15555 OR 05555 AT 
/15252 OR <^5252 

/JMP RJS!3 
/OR 02223 
/OR 05252 

/CLEAR ERROR TABLE 
/OR 02222 


/ERROR, RJMP ADR, (12222 OR 02222) 
/NOT 615253 OR 605253 


/ERROR. JMS DEST’M ERROR 

/DIRECT AOR, 13333 OR 03333 
/OR 04444 

/JMS* 14444 OR 04444 

/OR 05252 

/OR 03334 
/OR 05252 

/CLEAR error Table 
/OR 03333 


/ERROR. RJMP ADR (13333 OR 03333) 
/NOT 615253 OR 605253 

/CHECK done looping 

/LOOP 

/GET NO, POR NEXT LOOP 


/TEST XCT INOIRECTS 



PAGE B5 

BX8k 

BxSK 








/constants for lac»» 

XCT 

JMS* modified 





/WHEN 

IN UPPER 4K 





05326 

012525 

INK52 

12525 





05327 

127777 

jMSil 

JMS* 07777 





05330 

605223 

RJMll 

JMP RJSII 





05331 

005222 

RJSIIX 

RJSll^l 





05332 

136666 

JSI66 

JMS« 16666 





05333 

605247 

RJMI2 

JMP RJSI2 





05334 

015253 

K15253 

15253 





05335 

135555 

JSI55 

JHS* 15555 





05336 

605271 

RJMI3 

JMP RJSI3 





05337 

134444 

JSI44 

JMS* 14444 





05340 

605313 

RJM14 

JMP RJSI4 







/PDPtlS BASIC EXERCISER 

; tape 6 





/TEST 

XCT INDIRECT 





05341 

700002 

XTXCT 

lOF /PI 

/LOCATION 0 

OFF 

FOR XCT# TO USE 



05342 

207411 


lac K0 





05343 

057777 


OAC 17777 


/OR 07777 



05344 

205412 


lac xctdhm 





05345 

040000 


OAC 0 /D2M 

12525 OR 02525 



05346 

777777 


UAW 17777 





05347 

052525 


DAC 12525 


/(12525 OR 

02525) » 777777 

05350 

437777 


XCT# 17777 


/OR 07777 



05351 

212525 


lac 12525 


/OR 02525 



05352 

740200 


SZA 





05553 

740040 

E600 

HALT 


/ERROR, XCT# A 02M 

failed 






/(12525 OR 02525) i 

NOT 

777777 



/TEST 

ISZ INDIRECT, 


PI IS OFF 



05354 

207411 

t 

lac K0 





05355 

057777 


DAC 17777 


/OR 07777 



05356 

777777 


law 17777 





05357 

040000 


OAC 0 


/<0) ■ 777777 



05360 

477777 


IS2# 17777 





05361 

740040 

E601 

HALT 

.EJECT 


/ERROR ISZ« failed 

TO 

SKIP/ 
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BX8k 


BX8K 


/TEST XCT« ADD* Pi IS OFr 


/ 


05362 

777777 


UAW «>1 


05363 

040017 


DAC 17 

/C(17) s 777777 

05364 

040010 


OAC 10 


05365 

205413 


lac AOOI 

/add* 10 

05366 

040000 


OAC 7 

/AND* 17776 OR 07776 

05367 

740031 


CMA! lAC 

/AC » 457770 (Complement op and* i^m. 

05370 

420017 


XCT* 17 

/AOO ADO* 10 WITH ITS COMPLEMENT 

05371 

547412 


SAD K1 

/AC MUST equal octal 1 

05372 

741000 


SKP 


05373 

740040 

E602 

HALT 

/ERROR. XCT* 17 

/FOLLOWED by AOD* 10 FAILED# 

05374 

447517 


isz works 

/CHECK done looping 

05375 

605341 


JMP XTXCT 

/LOOP 

05376 

106336 


JMS CENRAN 

/GET NO, FOR NEXT LOOP 

05377 

106362 


JMS CKNO 


05400 

207501 


lac KSKp 


05401 

040001 


DAC 1 

/RESTORE LOC 1 

05402 

750004 


las 


05403 

740010 


RAL 


05404 

740100 


$HA 


05405 

700042 


ION 

/PI BACK ON 

05406 

507440 


AND K20K 


05407 

741200 


SNA 

/TEST ACS5 

05410 

106614 


JMS SETCLK 

/CLOCK BACK ON 

05411 

605414 


JMP AUTOIN 

/TEST Index registers 


.EJECT 



a:'? '87 BX8k Bx8K 

/constants for preceding loops* modified WHEK in UPPFR 4k 


/ 


?5412 

152525 

XCT02M 

02M 12525 


05413 

320010 

addi 

/ 

add* 10 




/ 

/TEST 

AUTO*INDEX IXOR* 

10} 

05414 

206006 

/ 

AUTOIN' 

LAC K17776 

/(10) a 17776 Or 07776 

05415 

040010 


OAC 10 

05416 

207446 


LAC KIS 

/AC a mil 

05417 

057777 


OAC 17777 

/OR 07777 

05420 

260010 


XOR* 10 


05421 

740200 


SZA 


05422 

740040 

£603 

MALT 

/ERROR, XOR* 10 failed 
/AC NOT mill 

05423 

200010 


lac 10 


05424 

546007 


SAD K17777 


05425 

741000 


SKP 


05426 

740040 

£604 

i 

WALT 

/ERROR, (10) not Incremented*! 

05427 

206010 

/ 

LAC K16665 


05430 

040010 


OAC 10 

/(10) a 16665 OT 06665 

05431 

207447 


LAC K2S 

/AC * 22222 

05432 

056666 


OAC 16666 

/OR 06666 

05433 

260010 


XOR* 10 


05434 

740200 


SZA 


05435 

740040 

E605 

WALT 

/ERROR, XOR* 10 failed 
/AC NOT 22222 

05436 

200010 


LAC 10 


05437 

546011 


SAD K16666 


05440 

741000 


SKP 


05441 

740040 

E606 

HALT 

/ERROR. (10) not Incremented*! 

05442 

206012 

/ 

lac K15554 


05443 

040010 


OAC 10 

/(10) » 15554 OR 05554 

05444 

207450 


LAC k3S 

/AC a 333333 

05445 

055555 


OAC 15555 


05446 

260010 


XOR* 10 


05447 

740200 


SiA 


05450 

740040 

£607 

WALT 

/ERROR, XOR* 10 failed, AC NOT 333333 

05451 

200010 


lac 10 


05452 

546013 


SAO K15555 


05453 

741000 


SKP 


05454 

740040 

£608 

halt 

/ERROR, (10) not Incremented *1 


.EJECT 



^AGE 88 BX8k 

05459 206014 

05456 040010 

05457 207451 

05460 054444 

05461 260010 

05462 740200 

05463 740040 

05464 200010 

09465 546019 

05466 741000 

05467 740040 

05470 206016 

05471 040010 

09472 207452 

05473 093333 

09474 260010 

05475 740200 

09476 740040 

09477 200010 

05900 546017 

09501 741000 

05502 740040 

09503 206020 

05904 040010 

05509 207453 

05506 052222 

09507 260010 

05510 740200 

05511 740040 

05912 200010 

05513 946021 

05914 741000 

05515 740040 

05516 206022 

05917 040010 

05520 207454 

05521 051111 

05922 260010 

05923 740200 

05524 740040 

05625 200010 

05926 546023 

05527 741000 

05930 740040 


BX8K 



LAC K14443 
OAC 10 
lac K4S 

DAC 14444 
XOR* 10 

S2A 

E609 

MALT 

LAC 10 

SAD K14444 
SKR 

E610 

HALT 

lac K13332 
DAC 10 

LAC K5S 

OAC 13333 
XOR« 10 

S2A 

E611 

HALT 

lac 10 

SAD Ki3333 
SKR 

E612 

/ 

HALT 

lac Ki2221 
OAC 10 

LAC K6S 

DAC 12222 
XOR* 10 

S0A 

E613 

WALT 

lac 10 

SAD K12222 
SKR 

C614 

HALT 

lac K11110 
DAC 10 
lac K7S 

DAC mil 
XOR* 10 

SZA 

E615 

HALT 

LAC 10 

SAD Klllll 
SKR 

E6i6 

halt 

.EJECT 


/(10) * 14443 OR 04443 
/AC ■ 444444 

/ERROR. XQR* 10 RAILCD AC NOT 444444 

/ERROR. (12> not InCRE^-ENTEO *1 

/(10) » 13332 OR 03332 
/AC ■ 55555 

/ERROR. XQR* 10 railed aC nqt 555555 

/ERROR. <i0) not Incremented*! 

/(10) = 12221 Or 02221 
/AC « 666666 

/ERROR. XOR* 10 FAILED. AC NOT 666666 

/ERROR. <10 NOT incremented*! 

/(10) » 11110 OR 01110 
/AC • 777777 

/ERROR, XORt 10 FAILED. AC NOT 777777 

/ERROR. <10) NOT INCREMENTED *1 



PAGS" '89 BX8K 


05531 206024 

05532 040011 

05533 207454 

05534 055253 

05535 460011 

05536 740040 

05537 215253 

05540 740200 

05541 740040 

05542 200011 

05543 545334 

05544 741000 

05545 740040 


05546 207611 

05547 740200 

05550 740040 

05551 207534 

05552 047611 

05553 206025 

05554 055253 

05555 206024 

05556 040012 

05557 620012 

05560 741000 

05561 147611 

05562 200012 

05563 545334 

05564 741000 

05565 740040 


05566 204553 

05567 040013 

05570 204553 

05571 047777 

05572 207411 

05573 060013 

05574 207777 

05575 740200 

05576 740040 

05577 200013 

05600 544550 

05601 741000 

05602 740040 


BX8K 

/TEST iSZ» 11 
/ 

lac K15252 
DAC 11 
lac K7S 
DAC 15253 
ISZ* 11 
E6i7 HALT 

LAC 15253 
S2A 

E618 HALT 

LAC 11 
SAD K15253 
SKP 

£619 HALT 

/ 

/auto^^index jmp* 
/ 

lac AUTjhP 

SZA 

£620 HALT 

lac JMPAUT 
DAC AUTJMP 
lac autret 
DAC 15253 
lac K15252 
DAC 12 
JMP* 12 
SKP 

AUTR DHM AUTJMP 

LAC 12 
SAD K15253 
SKP 

£621 WALT 

/ 

/AUTOsiNDEX (DAC« I? 
/ 

lac k76 
DAC 13 
lac K76 
DAC 07777 
lac K0 
DAC* 13 
lac 07777 
SZA 

£622 HALT 

lac 13 
SAD k77 
SKP 

£623 HALT 

•EJECT 


/(ID s 15252 OR 05252 
/OR 05253 

/ERRORi ISH failed TO SKIP 

/AUTO^INOEX 11 failed 

/ERROR. (15253 OR 05253) \OT 3 

/isz failed 

/ERROR. (11) WOT Incremented*! 

12 . 

/ERROR. JMP* 12 FAILED TO REACH 15253 
/JMP* 12 

/RJMP TO AUTR 
/(12) « 15252 
/CLEAR ERROR TABLE 

/ERROR. (12) NOT INCREMENTED*! 

t 

/(13) » 07776 OR 17776 

/(07777) ■ 07776 

/ERROR. (07777) not 0, OAC* 13 FAILED 

/ERROR (13) NOT incremented*! 
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bxsk 


BX8K 


/AUTO^INOEX (XCT* l^), 


/ 


05603 

204574 


lac k71 


05604 

040014 


DAC 14 

/(14) 8 

05605 

207525 


lac autcma 


05606 

047772 


OAC 07772 


05607 

750001 


CLAJCMA 


05610 

420014 


XCT* 14 


05611 

740200 


SZA 


05612 

740040 

E624 

HALT 

/ERROR. 

05613 

200014 


lac 14 


05614 

544566 


SAD k72 


05615 

741000 


SKP 


05616 

740040 

E625 

HALT 

/ERROR. 



/AUTO* 

INDEX (TAD* 15), 


05617 

206006 

f 

LAC K17776 


05620 

040015 


OAC 15 

/(15) 8 

05621 

207412 


LAC Kl 


05622 

057777 


OAC 17777 


05623 

754001 


cldclaicha 


05624 

360015 


tAO* 15 


05625 

740200 


SiA 


05626 

740040 

E626 

HALT 

/ERROR. 

05627 

740400 


8NL 


05630 

740040 

E627 

HALT 

/ERROR. 

05631 

200015 


lac 15 


05632 

546007 


SAO K17777 


05633 

741000 


SKP 


05634 

740040 

E62S 

HALT 

/ERROR. 

05635 

217777 


lac 17777 


05636 

547412 


SAD Kl 


05637 

741000 


SKP 


05640 

740040 

E629 

halt 

/ERROR. 



y 

/AUTO* 

i 

Index (sao* 16), 


05641 

204561 

/ 

lac k74 


05642 

040016 


OAC 16 

/(16) 8 

05643 

207465 


LAC K5252 


05644 

047775 


OAC 07775 


05645 

560016 


SAD* 16 


05646 

741000 


SKP 


05647 

740040 

E630 

HALT 

/ERROR. 

05650 

207775 


LAC 07775 


05651 

547465 


SAO K5252 


05652 

741000 


SKP 


05653 

740040 

E631 

halt 

/ERROR, 

05654 

200016 


lac 16 


05655 

544556 


SAO K75 


05656 

741000 


SKP 


05657 

740040 

E632 

HALT 

/ERROR. 


.EJECT 


07771 

/{07772> 8 CMA 

AC NOT 0 (XCT* 14) A CMA 

<14) NOT lNCREMENTED+1 

17776 OR 07776 
/OR 07777 

AC NOT 0 (TAD» 15) 
link not 1 (TAD* 15) 

(i5> NOT Incremented*! 

(17777 OR 07777) NOT 1 

07774 

/(07775) 8 5252 
SAD SKIPPED (SAD* 16) 

(07775) not 5252 

(16) NOT incremented*! 



P/tGl 


BX8K 


BXeK 


/AUTO-INOEX (JMS* 17), 


/ 


05660 

207612 


tAC AUTJ'^S 



05661 

744200 


S2A!CLL 



05662 

740040 

E633 

HALT 

/ERROR, 

ERROR TaRLE NOT 0 

05663 

206026 


lac AUTrjm 



05664 

047773 


OAC 07773 


/JMP autrEi 

05665 

204574 


LAC K71 



05666 

040017 


OAC 17 

/(17) * 

07771 

05667 

207532 


lac jmsaut 



05670 

047612 


OAC AUTJMS 

/JMS* 17 

IN ERROR TABLE 

05671 

120017 


JMS# 17 



05672 

741000 


SKP 



05673 

147612 

AUTRE! 

OZM AUTJMS 

/CLEAR ERROR TABLE 

05674 

207772 


lac 07772 



05675 

504550 


AND k77 



05676 

546027 


sad aurjmp 



05677 

741000 


SKP 



05700 

740040 

£634 

HALT 

/ERROR. 

(07772) STORED WRONG 





/(07772) 

SHOULD B AUTREl*! 

05701 

200017 


lac 17 



05702 

544566 


SAD K72 



05703 

741000 


SKP 



05704 

740040 

E635 

halt 

/ERROR, 

(17) NOT INCREMENTED' 



/ 

/AUTO- 

j 

INDEX (IS2* 10) 

(10) « 10. 


05705 

207415 

/ 

LAC K10 



05706 

040010 


OAC 10 



05707 

207454 


lac K7S 



05710 

040011 


OAC 11 

/(ID * 

777777 

05711 

460010 


iSi* 10 



05712 

740040 

E636 

HALT 

/ERROR, 

ISZ PAlLEO TO SKIP 

05713 

200010 


lac 10 



05714 

547416 


SAD Kll 



05715 

741000 


SKP 



05716 

740040 

E637 

halt 

/ERROR, 

(10) NOT 11 

05717 

200011 


lac 11 



05720 

740200 


SZA 



05721 

740040 

E636 

i 

halt 

/ERROR, 

(ID NOT 0 



/AUTO^ 

y 

index (IS2* U) 

(11) * 10. 


05722 

207415 

/ 

LAC K10 



05723 

040011 


DAC 11 

/(ID s 

10 

05724 

460011 


rSZ« 11 



05725 

200011 


LAC 11 



05726 

547417 


SAD K12A 



05727 

741000 


SKP 



05730 

740040 

£639 

HALT 

/ERROR. 

IS?* 11 failed to 


/INCREMENT *2 (11) 


EJECT 



Page 92 bxbk bxsk 


/AUT0*1N0EX (XCT* ts>) I 


05731 

204564 

/ 

lac K73 



05732 

040015 


DAC 15 

/(15) * 

07773 

05733 

207530 


lac lawaut 



05734 

047774 


OAC 07774 


/(07774) a XCT* 15 

05735 

207531 


LAC LAWruL 



05736 

047775 


OAC 07775 


/(07775) a LAW 17777 

05737 

750000 


CLA 

/AC B 0 


05740 

420015 


XCT* 15 



05741 

740001 


CMA 



05742 

740200 


SZA 



05743 

740040 

E640 

HALT 

/ERZOR, 

AC NOT ONES 





/LAW 1777 DIO NOT OCCUR 

05744 

200015 


LAC 15 



05745 

544556 


SAD K75 



05746 

741000 


SKP 



05747 

740040 

E641 

halt 

/ERROR, 

<15) NOT 7775 (XCT« 

05750 

447517 


IS2 WORKS 


/CHECK done LOOPING 

05751 

605414 


JMP AUTOIN 


/LOOP 

05752 

106336 


JMS CENRAN 



05753 

106362 


JMS CKNO 
.EJECT 





PaCI ^3 BX6k RX8K 

/ 

/TEST law X UITM tad. AC S^C LD AL'aAVS 
/BE CLEAR AFTER THE taO, LAw -1 To 
/law -20000 ARE USED, ANr TwE PRQPE- WiT IS 
/ALWAYS ADDED To GIVE OVrHEl''W, 


/ 


C5754 

207412 

LAWD 

LAC Kl 


05755 

046004 


OAC BITn 

/START WITM BIT 17 

05756 

777777 

LAWS 

law 

/THIS LAW will rotate left 

05757 

346004 


TAD BITn 

/should overflow ♦ Af! » 

05760 

741200 


SNA 


05761 

605764 


JMP ,*3 

/OK 

05762 

740040 

ERl 

HALT 

/ERROR, AC NOT 0 after a 

05763 

605756 

i 

JMP laws 

/DO SA^^F Tad again, 

05764 

206004 

/ 

LAC BITn 


05765 

744010 


RCL 

/NEXT BIT POSITION, 

05766 

046004 


DAC BITn 


05767 

405756 


XCT laws 


05770 

744010 


RCL 

/2’S complement of C(BITN) 

05771 

045756 


DAC laws 


05772 

546005 


SAD KNOP 

/DONE IE a A NCP 

05773 

741000 


SKP 


05774 

605756 


JMP laws 

/TEST NfxT bit POSITION 

05775 

777777 


law ^1 


05776 

045756 


OAC laws 

/RESTORE LAWS 

05777 

447517 


IS2 W0RK3 


06000 

605754 


JMP lAWD 

/LOOP 

06001 

106336 


JMS genran 


06002 

106362 


JMS CKNO 


06003 

606030 

J 

JMP tIAC 

/TEST lAC 

06004 

000000 

/ 

BITN 

0 


06005 

740000 

KNOP 

740000 





.EJECT 




modified WHE^ I"-! Ml 4K 
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/constants for AUTO'INDEy ING 

06P!06 

017776 

K17776 

17776 

06007 

017777 

K17777 

17777 

06013 

016665 

K16665 

16665 

06011 

016666 

<16666 

16666 

06012 

015554 

<15554 

15554 

06013 

015555 

<15555 

15555 

06014 

014443 

<14443 

14443 

06015 

014444 

<14444 

14444 

06016 

013332 

<13332 

13332 

06017 

013333 

<13333 

13333 

06020 

012221 

<12221 

12221 

06021 

012222 

<12222 

12222 

06022 

011110 

<11110 

11110 

06023 

011111 

Klllll 

mil 

06024 

015252 

<15252 

15252 

06025 

605561 

AUTRET 

JMP AUTR 

06026 

605673 

autrjm 

JMP AUTREI 

06027 

005672 

AURJmP 

autrei^i 

.EJECT 



BX8K 


PAffP 95 BX8 k 

/ 

/TEST lAC 


/ 



750000 

TIAC 

Cl-A 

/AC s 0 


740030 


I AC 

/AC + i 

06032 

547412 


SAD Kl 


06033 

741000 


SKP 


06034 

740040 

EX01 

i 

halt 

/ERROR, AC NOT s 000P'01 

06035 

744000 

f 

CLL 

/L s 0 

06036 

777777 


law ml 

/AC « 777777 

06037 

740030 


lAC 

/AC OVERFLOW 

06040 

740200 


SZA 


06041 

740040 

EX02 

WALT 

/ERROR, AC NOT 2eR0 

06042 

740400 


SNL 

/L MUST RE 1 

06043 

740040 

EX03 

y 

HALT 

/ERROR, link not COMPLEmENTE 

06044 

744002 

/ 

STL 

/LINK « 1 

06045 

777777 


law -1 

/AC • 777777 

06046 

740030 


lAC 

/OVERFLOW the Ac 

06047 

740200 


SZA 


06050 

740040 

EX04 

HALT 

/ERROR, AC NOT hero 

06051 

741400 


SZL 


06052 

740040 

EX05 

HALT 

/ERROR, L NOT Complemented 



y 

/TEST 

y 

!ac with microprogramming 

06053 

207412 

/ 

lac Kl 


06054 

740031 


CMAJ I AC 

/AC ■ 777776 * 1 

06055 

740001 


CMA 


06056 

741200 


SNA 

/AC MUST « 0 

06057 

606062 


JMP ,*3 


06060 

740001 


CMA 


06061 

740040 

EX06 

y 

HALT 

/ERROR, CMAJUC failed 

06062 

754031 

/ 

CLLJCLAtCMAI 

lAC /L « AC s 777777 * 1 

06063 

740400 


SNL 


06064 

740040 

EX07 

HALT 

/ERROR, LINK OR !AC FAILED 

06065 

740200 


SZA 


06066 

740040 

EX10 

HALT 

/ERROR, AC OR lAC FAILED 

06067 

750000 

/ 

CLA 

/AC « 0 

06070 

740230 


szamac 


06071 

740040 

EX13 

i 

WALT 

/ERROR. SHAMAC FAILED 

06072 

760000 

/ 

law 

/AC ■ 760000 

06073 

740230 


SZAMAC 


06074 

741000 


SKP 



.eject 



PAGE 96 


BX8k 


Bx8k 


06075 

740040 

EX14 

HALT 

06076 

741230 


SNA! I AC 

06077 

740040 

rxi5 

/ 

HALT 

06100 

447517 

/ 

IS? W0PK3 

06101 

606030 


JHP TIAC 

06102 

106336 


JMS GEMRa 

06103 

106362 


JMS OKNIQ 



/TEST 

/ 

SWHA 

06104 

777000 

/ 

TSWH 

law 17000 

06105 

742030 


SWHA 

06106 

547347 


SAD K777 

06107 

741000 


SKP 

06110 

740040 

EX16 

halt 

06111 

207464 

/ 

LAC K2525 

06112 

742030 


SWHA 

06113 

547472 


SAD K5P2 

06114 

741000 


SKP 

06115 

740040 

EX17 

halt 



/ 

/TEST 

J 

CONDITIONAL 

06116 

207435 

f 

LAC K400K 

06117 

742130 


SHA’SWHa 

06120 

740040 

EX18 

WALT 

06121 

7-43130 


spaiswha 

06122 

740040 

EX19 

WALT 


06123 

547435 


SAD K400K 

06124 

741000 


SKP 

06125 

740040 

EX20 

HALT 

06126 

447517 

/ 

ISZ W0RK3 

06127 

606104 


JMR TSWh 

06130 

106336 


JMS GENRA 

06131 

106362 

/ 

JMS CKNQ 

.EJECT 


/EBROR, SZA’IAC TAIL^n 
/ewror. fi^A•IAC TAiueo 


/LOOP 


/AC « 777000 
/AC « 000777 


/ERRORf SWHA failed '*ITh 
/AC a 777000, 

/AC « 002525 

/AC SHOULD BE 535002 
/OK 

/ERROR. SWHA failed wITw 
/AC = 002525, 

SKIPS with SWHA 

/AC ■ 400000 

/SHOULD SKIP, TwfN SWAP 

/ERROR. SMA’SWHa DID^•T SKIP 

/ERROR. spAtswHA Failed. c(ac> 
/SHOULD BE 000001 IF IT IS 
/STILL 400000 Maybe smaiswha 
/above failed. 

/SHOULD AGAIN! B 400000 
/OK 

/ERROR, ONE OF the TWO 

/PREVIOUS swHA’s Failed, 


/LOOP 



^AGE 97 BX6k 


BV8K 


/ 

/TEST index group instructions 
/ 

/XG crri‘.'iTioNS 


/ 


72O0PS0 

AA3s720000 

/ADD TO ACl SKIP ir r . ^ 

721000 

PAX=721000 

/PLACE AC IN XR 

722000 

PAL=722000 

/PLACE AC IN L'’ 

723000 

AAC=723000 

/ADD TO AC 

724000 

PXAS724000 

/PLACE XR IN AC 

725000 

AXSs725000 

/add to XRI skip ir S OR > L' 

726000 

9X1=726000 

/PLACE XP IN L^ 

730000 

PLAS730000 

/PLACE L^ IN AC 

731000 

PLXa73l000 

/PLACE LP IN XW 

734000 

CLAC«734000 

/CLEAR AC 

735000 

CLXS735000 

/clear XR 

736000 

CLLR=736000 

/CLEAR LP 

737000 

AXRS737000 

/ADD TO XR 

707764 

EBAS707764 

/ENTER 9 MODE (BaNk aDCRESS) 

707762 

E:PAs707762 

/ENTER 15 MODE (aK PaGES) 

707761 

SBAb707761 

/SKIP IF IN 9 Mo^E 

707741 

EXBAs707741 

/SKIP IF A PDP*1? 


y 

/TEST XG IN 9 MODE 

To make sure the AC OR 


/LINK DOES NOT Change 


/ 


06132 

754000 

TSXG 

CLAICLL 

/AC, LINK = 

? 


06133 

720000 


AAS 

/ADD TO ACl 

COMpa-Sf 

TO lr 

06134 

740200 


SHA 




06135 

740040 

EX21 

malt 

/ERROR. AAS 

chanced 

C< AC) , , 





/.. .while in 9 mode , 

> 

06136 

741400 


S2L 




06137 

740040 

EX22 

MALT 

/ERROR. AAS 

changed 

rtL) . . , 





/... WHILE 

IN 9 VQCE. 



/TRv 

PAX IN 9 MODE 




06140 

754000 

/ 

CLAICLL 

/AC, LINK a 

0 


06141 

721000 


PAX 




06142 

740200 


SZA 




06143 

740040 

EX23 

malt 

/ERROR, PAX 

changed 

C( AC) . , 





/...while I 

9 mode 


06144 

741400 


SZL 




06145 

740040 

EX24 

WALT 

/ERROR. PAX 

changed 

C(L) , . , 





/...while in 9 mode 




y 

/try 

> 

PAL IN 9 MODE 




06146 

754000 

/ 

CLAICLL 

/AC, LINK = 

0 


06147 

722000 


pal 




06150 

740200 


SZA 




06151 

740040 

EX25 

MALT 

/ERROR, PAL 

CMA^ cED 

r( AC) , , 





/,., while 1 

N 9 0 D E 


06152 

741400 


SZL 




06153 

740040 

EX26 

malt 

/ERROR, PAL 

C M A V G L n 

^ { t- ) 1 » • 
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BX8K 


Ry8K 


/, t .wHILF in 9 MODE 

/ 

.EJECT 



m ^9 


BXBK 






/AAC 

i 

IN- 

9 mode 


76154 

754000 

/ 


CLAICLL 


76155 

.723000 



AAC 


76156 

740200 



SHA 


76157 

740040 

EX27 


halt 

/ERROR, AAC+0e0 rHA\GE'' C{AC) 






/, , , INI 9 MODE 

7616? 

741400 



SHt 


06161 

740040 

EX2B 


HAtT 

/ERROR, AAC+000 changed C(L). 






/,, .while in 9 mode 



/ 

/PXA 

IN 

9 MODE, 

xR Should initiallt re 0 , 

76162 

754001 

/ 


CLA’CMA 1 

[CLL 

06163 

724000 



PXA 


06164 

740200 



SZA 


06165 

740040 

EX29 


HALT 

/ERROR, PXA changed C(AC>,,, 






/,,,IN 9 MODE 

06166 

741400 



521 


06167 

740040 

EX30 


HALT 

/ERROR, PXA changed ca),., 






/,,,IN 9 MODE 



/ 

/AXS 

i 

IN 

9 MODE, 

xR Should imtiallt be 0 . 

0617? 

754000 

/ 


ClA'CLl 


06171 

725000 



AXS 

/SHOULDN’T SKIP 

06172 

740040 

EX31 


HALT 

/AXS DID NOT SKIP IN 9 MODE 

06173 

740200 



SZA 


06174 

740040 

EX32 


WALT 

/AXS CHANGED AC IN 9 MODE 

06175 

741400 



SZL 


06176 

740040 

EX33 


halt 

/AXS changed link IN 9 mOOE 



/PXL 

y 

IN 

9 MODE, 

XR Should initially be 0 . 

06177 

754001 



CLAICLL! 

!CMA 

06200 

726000 



PXL 


06201 

740001 



CMA 


06202 

740200 



SZA 


06203 

740040 

EX34 


HALT 

/ERROR, PXL changed C(AC).,, 






/, , , IN 9 MODE 

06204 

741400 



SZL 


06205 

740040 

EX35 


HALT 

/ERROR, PXL changed C(L) , , , 






/, , ,IN 9 MODE 


EJECT 



Page ip0 


BX8k 


BX8K 


/ 




/PUA 

IN 9 mode, 

LP ShOUL'^ INITIALL'^ ®E ?, 


06206 

754001 

/ 

CLA : CMA 1 

\CLl 



06207 

730003 


PLA 




06210 

740200 


S2A 




06211 

740040 

EX36 

malt 

/ERROR 1 

PI.A chan-gec 

C( AC) , . , 





/ . t . I N 

9 mode 


06212 

741400 


so. 




06213 

740040 

EX37 

halt 

/ERRORf 

pla cwa^gEh 

C { U ) f * 1 





/ . . . 

9 MODE 



/ 

/PLX IN 9 MODE, XR, I.R SwOULT INITIALIV gE Z, 
/ 


06214 

754000 


ClAJCLL 



06215 

731000 


PLX 



06216 

740200 


SZA 



06217 

740040 

EX38 

HALT 

/ERROR, PLX changed 

C(AC) . , . 





/, • , IN 9 mode 


06220 

741400 


S2L 



06221 

740040 

EX39 

HALT 

/ERROR. PLX changed 

C(L> , , , 





/,,,IN 9 mode 




/ 

/Ci,AC 

4 

IN 9 mode 



06222 

754001 

f 

CLAfCMAiCLL 



06223 

734000 


CLAC 



06224 

740203 


SZA 



06225 

740040 

EX40 

HALT 

/ERROR. CLAC worked 

IN 9 MODE 

06226 

741400 


SZL 



06227 

740040 

EX41 

HALT 

/ERROR, ClAC changed 

' C { L ) . t . 



/ 


/, . , IN 9 MODE 




/cux 

4 

IN 9 MODE 



06230 

754001 

f 

CLAlCMAiCLL 



06231 

735000 


CLX 



06232 

740001 


CMA 



06233 

740200 


SiA 



06234 

740040 

EX42 

HALT 

/ERROR. CLX changed 

C( AC) , 1 . 





/ , , , IN 9 mode 


06235 

741403 


SZL 



06236 

740040 

EX43 

MALT 

/ERROR, CLX changed 

C<L) . , . 





/,,,IN 9 MODE 




/CILR 

4 

IN 9 mode 



06237 

754001 

/ 

claichajcll 



06240 

736000 


CLLR 



06241 

7400C1 


CMA 



06242 

740230 


S2A 




.EJECT .. 




740040 

EX44 

HALT 

/ERROR, ClLR CHasGED C(aC), 
/. , . IN 9 MODE 

?6?44 

741400 


S«fL 



740043 

EX45 

HALT 

/err'^R, ollr change': ca)., 



/ 

/AXR 

j 

9 MODE 

/ , , , I N 9 ''oar 

J?6246 

754000 

/ 

CLAICLL 


06247 

737777 


AXR*777 


06250 

724000 


PXA 

/XR TO AC 

06251 

547454 


SAO K7S 


06252 

741000 


SKP 


06253 

740040 

EX46 

MALT 

/ERROR , AxR FA IlpD. , . 

/ , , , IN 9 MODE 

06254 

741400 


S2L 


06255 

740040 

ex47 

MALT 

/ERROR, AxR changed C(L) , , , 
/, . , IN 9 MODE 

06256 

735000 


CLX 

/CLEAR XR 



/TEST 

SBA (SKIP ir Bank 

MODE) 

06257 

754001 

/ 

CLAICMAjclL 


06260 

707761 


SBA 


06261 

740040 

EX48 

WALT 

/ERROR, SBA DID vOT SKIP, . , 
/,,,CP should Be in 9 MODE 

06262 

740001 


CMA 


06263 

740200 


S2A 


06264 

740040 

EX49 

WALT 

/ERROR, SB* changed C(AC), 

06265 

741400 


SZL 


06266 

740040 

EX50 

WALT 

/ERROR, SBA changed C(L) , 



/TEST 

EXBA (SKIP IF POP 

•15) AND EPA (ENTER 15 MODE) 

06267 

754000 

/ 

CLAJCLL 


06270 

707741 


EXBA 


06271 

740040 

EX51 

WALT 

/ERROR, EXBA DIDN’T SKIP,,, 
/..,1S THIS A PDP«15? 

06272 

700002 


lOF 


06273 

707762 


e:pa 

/ENTER 15 MODE 

06274 

707761 


SBA 

/SKIP IF IN 9 Mode 

06275 

741000 


SKP 


06276 

740040 

EX52 

WALT 

/ERROR. SBA SKIPPED AFTER, t 
/AN EPA was issued. 

06277 

707764 


EBA 

/BACK TO 9 MODE 

06300 

707761 


SBA 


06301 

740040 

EX53 

WALT 

/ERROR, SBA DIDN'T SKIP, , , 





/, , .after an E9a. 

06302 

750004 

/ 

las 


06303 

740010 


RAL 


06304 

740100 


SMA 


06305 

700042 


ION 


06306 

447517 


ISZ UQRK? 


06307 

606132 


JMP TSXG 

/LOOP 



) 
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/ 

/TEST !0T 3341 (SKIP IT PC?4/5) IF ACS 9 » 1 


/ 


2631? 

752?e4 

PC05 

LAS 



26311 

507425 


AND 

K400 

/CHECK ACS 9 

26312 

741222 


SNA 


/ACS 9*0 (vO PC15) 

06313 

606320 


JMP 

.*5 

06314 

703341 


703341 


/SKIP IF PC15 I'vSTALLEP, 

06315 

606322 


JMP 

,♦5 

/EPROR, aCS 9 IS SET, INDICATING 

06316 

740040 

EX54 

HALT 


/NO PC15, BUT 7^3341 SKIPPED. 

06317 

606314 


JMP 

.^3 


06320 

703341 


703341 


/Should skip 

06321 

740040 

EX55 

MALT 


/error, pci5 installed, but 


/ 



/7?3341 ^lON'T SKIP 

06322 

700002 


lor 


/PI OFF 

06323 

750004 


LAS 



06324 

507440 


AND 

K20K 


06325 

741200 


SNA 


/SKIP « oo^j'T Relocate 

06326 

606410 


JMP 

entst 


06327 

760207 


law 

207 


06330 

107237 


JMS 

TLSSr 

/BELL FOR ONE PASS 

06331 

750004 


LAS 



06332 

507433 


AND k207 


06333 

740200 


SZA 



06334 

107303 


JMS 

PINOT 

/PI INHIBITED 

06335 

600112 


JMP 

SEQUEN 

/START over 


.EJECT 



8X8K 


AGC^73 BX8k 

/random nu‘'bf:r generators 


/ 


76336 

000007 

GENRAv 



76337 

206357 


lac ravqex 


76340 

546360 


SAD ENDTBL 

/CHECK rnR E -D CC Ta^^L 

36341 

741000 


SKP 

/END 

76342 

606352 


JMP RANTAOsl 

/GENERATE random 

06343 

206361 


lac TbLTOP 


06344 

046357 


DAC RANOEX 

/RESET index TO FIRST 

06345 

207540 


LAC ra^ccn 

/POSITION KODIFifR 

06346 

744010 


CLLIRAL 

/I LEFT 

06347 

741400 


SZL 

/WAS BIT 0 A 1 

06350 

347412 


TAD Kl 

/YES make 17 a 1 

06351 

047540 


DAC RANCON 

/RESTORE modifier 

06352 

226357 


LAC* RAnDEX 

/GET FIRST control 

06353 

347540 

rantad 

TAD RANCON 

/ADD MODIFIER 

06354 

066357 


DAC* RAnOEX 

/NEW CONTROL ■ RANDOM 

06355 

446357 


IS2 RANOEX 

/STEP POINTER 

06356 

626336 

i 

jMP» genran 

/EXIT 

06357 

007551 

r 

RANDEX 

RANTBL*10 


06360 

007551 

enotbl 

RANTBL*10 


06361 

007541 

tbutop 

i 

rantbl 


06362 

000000 

f 

CKNO 

0 


06363 

507471 


AND k37s 

/make 65K or less 

06364 

740001 


CMA 


06365 

047517 


DAC W0RK3 

/■LOOP Counter 

06366 

626362 

y 

JMP* CKnO 

/EXIT 

06367 

000000 

f 

RANGEM 

0 


06370 

206357 


lac RANOEX 


06371 

546360 


SAD ENOTSL 

/CHECK for TABLE END 

06372 

741000 


SKP 

/END 

06373 

606403 


JHP TADRAN-1 

/GENERATE RANDOM 

06374 

206361 


LAC TBLTOP 


06375 

046357 


DAC RANOEX 

/RESET INDEX TO FIRST 

06376 

207540 


LAC RANCON 

/POSITION modifier 

06377 

744010 


CLLIRAL 

/I LEFT 

06400 

741400 


SZL 

/WAS BIT 0 A 1 

06401 

547412 


TAD Kl 

/MAKE 17 A 1 

06402 

047540 


DAC RANCON 

/RESTORE modifier 

06403 

226357 


LAC* RAnOEX 

/GET first control 

06404 

347540 

TAORAN 

TAD RANCON 

/ADD modifier 

06405 

066357 


DAC* RANDEX 

/NEW CONTROL * RANDOM 

06406 

740000 


NOP 


06407 

626367 


JMP* RANGEN 

/EXIT 


.EJECT 



tape 7 
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/POP-15 BASIC ExEPClSER ^ 


/ 

/P0UTI\E EOR PROGRAM RELOCATION 

/ 


06410 

700002 

ENTST 

I OF 

/PI -FF relocation 

06411 

206411 


lac . 


06412 

507437 


AND K10K 


06413 

740200 


SHA 

/SEE IF IN LO OR MI 4K 

06414 

606503 


JMP mVBK 

/HI 4K 

06415 

740001 


CMA 


06416 

047516 


OAC WORKS 

/SOURCE address 

0641? 

207342 


lac K7777 

/DtST’N aOR, to Ml 4K 

06420 

047517 


OAC W0PK3 


06421 

207516 

MOVE 

lac works 


06422 

047337 


OAC MOVES 


06423 

207517 


LAC W0RK3 


06424 

047340 


OAC MOVED 


06425 

447337 

rfrom 

1S2 MOVES 


06426 

227337 


lac# moves 

/SOURCE AQR, 

06427 

047517 


OAC W0RK3 

/save Instruction 

06430 

507443 


AND K700K 


06431 

247443 


XOR K700K 


06432 

740200 


SiA 

/OPERATE INST, IF 0 

06433 

606510 


JMP MRIMS 

/MEMORY ref 

06434 

207517 


LAC W0RK3 


06435 

447340 

mVRTN 

isz moved 


06436 

067340 


OAC* MOVED 

/STORE IN opposite 4K 

06437 

547327 


SAD LIMITA 

/DONE WITH INST. IF EQUAL 

06440 

741003 


SKP 

/MOVE constant tables 

06441 

606425 


JMP RPROM 

/MOVE another INST, 

06442 

147517 


OZM W0RK3 


06443 

447337 

MVCST 

1S2 MOVES 


06444 

227337 


lac# moves 

/SOURCE 

06445 

447340 


IS2 MOVED 


06446 

067340 


DAC* MOVED 

/DEST’N 

06447 

207337 


lac moves 


06450 

546707 


SAD ENDOUT 


06451 

741000 


SKP 


06452 

606443 


JMP MVCST 



.EJECT 



2^5 

bx8k 

BX0K 



?6453 

204602 


LAC 

K210K 

26454 

247437 


XOR 

K12k 

26455 

P54602 


DAC 

K210'< + 10e00 

26456 

204545 ' 


LAC 

12000 

26457 

247437 


XOR 


2646? 

054545 


OAC 

Ki00Z0*i00e0 

26461 

207352 


LAC 

TTIn 

26462 

247437 


XOR 

Kl'?< 

26463 

057352 


OAC 

TTlN+12000 

26464 

207351 


LAC 

TTCUT 

26465 

247437 


XOR 

KIFk 

26466 

057351 


DAC 

TTCtjT*10000 

26467 

750004 


LAS 

/LOWER 

?!647e 

507433 


AND 

K207 

26471 

740200 


SiA 

/CHECK 

26472 

107303 


JMS 

PINOT 


.EJECT 


FOR IMHIPIT PI 

/inhibited 



1^6 

BX8k 

BX8K 




?6473 

206473 

bgnagn 

LAC . 



^6474 

507437 


and K10K 



26475 

740220 


S2A 

/SEE WHICH 4K 

26476 

741000 


SKP 



26477 

627333 


j^p* bg\hi 

/sta^t 

ovr=^ !\' wT 

26500 

760207 


law 207 

/bell 


2652t 

107237 


JMS TLSSF 



06502 

627332 

y 

JMP* BGnlO 


/start p. L0« 4 k 



/ 

/SETUP 

TO MOVE TO LOW 

4K 


06503 

777777 

/ 

MV0K 

law 17777 


/0EST»N 

06504 

047517 


OAC W0RK3 



06505 

207342 


lac k7777 


/SOURCE 

06506 

047337 


OAC MOVES 



06507 

606423 

/ 

jMP moVE*2 

/MOVE 

program 



/ 

/ADJUST 

MEMORY REF. INSTRUCTIONS. 00 NOT ADJUST IF 



/ADR, P0RTI0N*ANY ADR, 

FROM 3 

TO 21. 

06510 

147335 

MRINS 

OZM WOCNT 


/ADR, Compare word 

06511 

207517 


lac works 


/INST, TO be modified 

06512 

507342 


and K7777 


/clear bits 0*5 

06513 

047516 


OAC W0RK2 


/save 

06514 

207335 


lac WDCNT 



06515 

547422 


SAD K22 

/DONE 

IF equal to 22 

06516 

606523 


JMP ,*5 



06517 

547516 


SAO W0RK2 


/compare 

06520 

606434 


JMP MVRTN»1 

/ADR , 

IS some Reg, from 2 





/TO 21 

, MOVE without adjusting 

06521 

447335 


1S2 WOCNT 


/ADR, COUNT*l 

06522 

606514 


JMP .»6 



065-23 

207437 


lac K10K 


/10000 

06524 

247517 


XOR W0RK3 


/ADJUST INST. BY 10000 

06525 

606435 

i 

JMP MVRTN 


/MOVE 

06526 

047526 

/ 

SAV3 

OAC SAVAC 


/THESE are modified FOR 

06527 

047527 

SAV5 

OAC RJMP 


/relocation 

06530 

606531 

SAV6 

JMP SRVINT 




.EJECT 



^ bxsk bxsk 

/ 

/SERVICE ALL INTERRUPTS 


/ 


06531 

750004 

SRVlViT 

LAS 

/READ ACS 

06532 

507437 


A\D KIJ^K 

/BIT 5 

06533 

740200 


SHA 

/CHECK BIT 5 

06534 

606543 


JHP NOClK 

/CHECK CLOCK FLAG 

06535 

200007 


UAC 7 

/RTC REGISTER 

06536 

741100 


SPA 

/RTC OVERFLOW IF SKIP 

06537 

606546 


JMP E:642A + 1 

/NO overflow yet 

06540 

700001 


CLSF 

/CLSF should skip 

06541 

740040 

E642 

hlt 

/CLOCK REG, SAYS OFERFLOW, BUT 
/RTC FLAG NOT SET, 

06542 

606606 


JMP 

/SERVICE CLOCK 

06543 

700001 

/ 

NOCLK 

CLSF 

/SHOULD NOT SKIP 

06544 

741000 


SKP 

/OK 

06545 

740040 

E642A 

HLT 

/RTC FLAG IS SET. IT WAS 
/NEVER SELECTED BY TwE PROGRAM, 

06546 

700301 


KSF 


06547 

741000 


SKP 


06550 

606572 


JMP RTNIT 


06551 

700314 


lORS 


06552 

741100 


SPA 

/STATUS WORD BIT D MUST * 0 

06553 

740040 

E643 

HALT 

/ERROR, BIT 0 SET, PI OFF 

06554 

207514 


lac work 


06555 

740010 


RAL 


06556 

741100 


SPA 

/SEE IF TTY IN USE AT TIME 
/OF PI 

06557 

606646 


JMP TTVINT 

/CONTINUE PRINTING 

06560 

700314 


lORS 

/I/O STATUS word 

06561 

507344 


AND K1400 


06562 

740200 


SEA 

/CHECK FOR NO TaPE FLAGS 

06563 

107167 


JMS RNFlG 

/EITHER reader OR PUNCH NO TAPE 

06564 

700101 


RSP 

/CHECK FOR PI FpnM READER 

06565 

741000 


SKP 


06566 

607020 


JMP READA 

/READ MORE 

06567 

700201 


PSF 

/CWECK PUNCH PI 

06570 

606572 


JMP RTNIT 

/SOME Other device 

06571 

627001 


JMP# GOPNCH 

/PUNCH MORE 



y 

/SETUP 

TO return to 

INSTRUCTION TEST 

06572 

744000 

RTNIT 

CLL 


06573 

700312 


krb 


06574 

207527 


lac RJMp 

/c(0> at PI 

06575 

741100 


SPA 

/CHECK link 

06576 

744002 


STt 

/RESTORE link 

06577 

507463 


AND K17s 


06600 

546605 


SAD ILINT 


06601 

740040 

E644 

HALT 

/ERROR, PI OCCURRED aFTER LAC SAVAC 
/INSTEAD OF JMP » PJnP, 

06602 

207526 


lac savac 

/AC AT time of pi 

06603 

700042 

PION 

ION 

/PI CM 

06604 

627527 


JMP* RJMP 

/CONTENTS OF after PJ 
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BX8k 


BX8K 


/ 


06603 

006603 

ILI^T 

i 

PION 

06606 

700004 

f 

CLKI\T 

CLOF 

06607 

700001 


CLSF 

066i0 

741000 


SKP 

06611 

740040 

E644A 

^LT 

06612 

106631 


JWS CLOSET 

06613 

606572 


JMP RTNIT 


.EJECT 


/RTc OFFj Clear stc flag 


/CLOCK flag still set 
/after a CLOF 

/reset clock to RaN-OOM value 
/RETURN) to !L‘ST, test 



■r09 

BX8k 

BX8K 







/ 

/SETUP 

CLOCK values 




06614 

000000 

/ 

Sc TCl < 

1 




06615 

106336 


J^S GE^PAN 

/GET / 

* NH, rrR ci.oc 

X. 

06616 

047335 


DAC WDC^T 


/SAVE 


06617 

507347 


and k777 


/MAX, TlvE 

> 9 SECS, 

06620 

047335 


OAC wdcmt 


/SAVE 


06621 

347350 


TAD M167 


/MlN, TjmE 

« 2 SEC. 

06622 

741100 


SPA 

/POS.s 

:2 SECS, Or mo 

Rf 

06623 

606615 


JMP SETCLK*! 

/NEG s 

t less TWAn 2 

SEC . 

06624 

207335 


lac wdcmt 




06625 

740001 


CMA 




06626 

040007 


OAC 7 

/PUT VALUE IK' (7) 


06627 

700044 


CLON 

/CLOCK ON 


06630 

626614 

i 

JMP* SETCIK 

/EXIT 



06631 

000000 

/ 

CL<SET 

0 




06632 

106367 


JMS rangen 


/get a NiO. 

EOR CLOCK 

06633 

047335 


OAC WOCNT 


/SAVE 


06634 

507347 


AND k777 


/max, Time 

B 9 SECS, 

06635 

047335 


DAC WOCNT 


/save 


06636 

347350 


TAD M167 


/MiN, Time 

8 2 SECS, 

06637 

741100 


SPA 

/POS. 

S 2 SECS. OR 

more 

06640 

606632 


JMP CLKSET*! 

/K'EG. 

= LESS THAN' 2 

SECS, 

06641 

207355 


lac wocnt 




06642 

740001 


CMA 




06643 

040007 


OAC 7 

/PUT VALUE IN (7) 


06644 

700044 


CION 

/CLOCK ON 


06645 

626631 


JMP* CLKSET 

/EXIT 




.eject 
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BX8K 


ex8K 


/SETUP FOR READ, PUNCH, nR PRINT 


/ 


06646 

207351 

TTYInT 

lac ttout 

06647 

546707 


SAD ENDOUT 

06650 

606665 


JMP PREaCY 

06651 

207441 


LAC K200K 

06652 

047514 


OAC WORK 

06653 

700101 


RSF 

06654 

741000 


SKP 

06655 

740040 

E645 

HALT 

06656 

700201 


PSF 

06657 

741000 


SKP 

06660 

740040 

E646 

HALT 

06661 

447351 


ISH TTOUT 

06662 

227351 


lac# ttout 

06663 

700406 


TLS 

06664 

606572 

i 

JMP RTNIT 

06665 

147514 

/ 

PREADY 

D2M WORK 

06666 

147353 


DIM CNTA 

06667 

147354 


DHM CNT8 

06670 

700402 


TCF 

06671 

750004 


LAS 

06672 

507424 


ANO KIK 

06673 

741200 


SNA 

06674 

606677 


JMP ,*3 

06675 

700104 


RSA 

06676 

606572 


JMP RTNlT 

06677 

207001 


lac gopnch 

06700 

741200 


SNA 

06701 

606710 


JMP PNSTRT 

06702 

700104 


RSA 

06703 

627001 


JMP# GOPNCH 

06704 

007612 

/ 

DATASL 

TTBUFA"! 

06705 

007676 

ENDBIN 

TTBUFA*63 

06706 

007676 

outtop 

TTBUFA*63 

06707 

007762 

endout 

TTBUFA*147 


.EJECT 


/IF equal go Pu-vCh Avn 


/ERROR, read flag up 


/ERROR, PUNCH F^aG UP 

/TTouT s Char, bin pointer 

/GET CHAR, FROM tTY PIN 
/PRIVT ONE character 

/RETURN TO INST, TEST 


/CLEAR TTY FLAG 


/TEST ACS 8 A 1 

/SELECT READER 

/RETURN TO INST. TEST 

/0«1ST TIME THRU 
/START SEQUENCE 
/SELECT READER 
/CONTINUE sequence 



PACe^ll BX6K BX8K 

/ 

/PUNCH DATA 


/ 


■^6710 

107273 

pnstrt 

JMS 

CRLF 

/CP.LF 

06711 

7500S4 


LAS 



06712 

507425 


AND 

K400 


06713 

740200 


S2A 



06714 

606727 


JMP 

PNXT^a 

/TTY only 

06715 

700402 


TCP 


/CLEAR TTY flag 

06716 

750004 


las 



06717 

507427 


AND 

K3K 

/MASK ACS 7 AND 8 

06720 

741200 


SNA 


/IF either is a 1, DON’T PUNCH 

06721 

606724 


JMP 

,*3 

/PUNCH DATA 

36722 

700202 


per 


/CLEAR PUNCH flag# no more 

/PI’S from punch Should occur, 

06723 

606572 


JMP 

RTNIT 

/RETURN TO INST, TEST 

06724 

750000 


CLA 



06725 

700104 


RSA 


/SELECT READER AnD PUNCH 

06726 

107001 


JMS 

GOPNCH 

/TO INITIATE SEouENCF, 

06727 

207357 


LAC 

K300 


06730 

047361 


DAC 

STORE 


06731 

447361 

PNXT 

ISH 

STORE 


06732 

207361 


lac 

store 


06733 

107001 


JMS 

GOPNCH 

/PUNCH char, in aC 10*17 

06734 

207362 


LAC 

SPCE 

/(SPCE)t:240 

06735 

107001 


JMS 

GOPNCH 

/PUNCH SPACE 

06736 

207361 


LAC 

STORE 


06737 

547363 


SAD 

K332 

/DONE with alphabet IF 

06740 

741000 


SKP 



06741 

606731 


JMP 

PNXT 

/PUNCH more chars, 

06742 

207355 


LAC 

k257 


06743 

047361 


OAC 

store 


06744 

447361 

PNXTA 

ISH 

store 


06745 

207361 


LAC 

store 


06746 

107001 


JMS 

GOPNCH 


06747 

207362 


LAC 

SPCE 


06750 

107001 


JMS 

GOPNCH 


06751 

207361 


LAC 

store 


06752 

547356 


SAD 

k27i 


06753 

741000 


SKP 



36754 

606744 


JMP 

PNXTA 


06755 

207364 


LAC 

KCRlF 

/(KCRLF)rCR,LF 

06756 

047361 


DAC 

store 


06757 

107001 


JMS 

GOPNCH 

/PUNCH CR 

06760 

207361 


LAC 

store 


06761 

107264 


JMS 

R0TAT9 

/ROTATE 9 right 

06762 

107001 


JMS 

GOPNCH 

/PUNCH LF 

36763 

777770 


law 

■r 1 0 


06764 

047361 


DAC 

store 


06765 

750001 


CLAl 

;CMA 

/AC = 777777 

06766 

700010 


700010 

/CLEAR AC WITH HP 14 

06767 

740200 


SHA 



06770 

740040 

E647 

MALT 

/ERROR, event Time 1 DIDN’T 






/CLEAR AT, 

06771 

750004 


las 




Equal 



26772 

507425 

AfwO K400 


26773 

740200 

SiifA 


26774 

606727 

jv.p P\XT^2 

/tty only 

26779 

107001 

J^'S gopnch 

/plifsiCH B 

06776 

447361 

isii store; 


06777 

606765 

J«p E647*3 


07P00 

606727 

JMP PNXT-S2 

/start New line 


.EJECT 


FR A-'L 



BX8K 


BX8K 


07001 

000000 

GOPnCH 

0 

07002 

606663 


JMP F646+3 

07003 

700204 


PSA 

07004 

700201 


PSF 

07005 

741000 


SKP 

07006 

740040 

E647A 

HLT 

07007 

750004 


LAS 

07010 

507430 


AND K4K 

07011 

740200 


SZA 

07012 

606572 


JMP RTNIT 

07013 

447353 


isz cnta 

07014 

207354 


lac cnts 

07015 

740200 


SZA 

07016 

607053 


JMP SUBl 

07017 

606572 

/READ 

JMP RTNIT 

PUNCHED INFO 

07020 

750004 

y 

READA 

las 

07021 

507427 


AND K3K 

07022 

740200 


SZA 

07023 

607135 


jMp reads 

07024 

750004 


LAS 

07025 

507430 


AND K4K 

07026 

741200 


SNA 

07027 

607032 


JMP ,*3 

07030 

700112 


RRB 

07031 

606572 


JMP RTNIT 

07032 

700112 


RRB 

07033 

740200 


SZA 

07034 

607041 


JMP hronot 

07035 

207353 


lac cnta 

07036 

740200 


SZA 

07037 

607053 


JMP SUBl 

07040 

607051 


JMP TADDl 

07041 

447352 

2R0N0T 

ISZ TTIN 

07042 

067352 


OAC* TTIN 

07043 

207352 


LAC TTIn 

07044 

546705 


SAD END0IN 

07045 

607061 


JMP SETTY 

07046 

207353 


lac cnta 

07047 

740200 


SZA 

07050 

607053 

y 

JMP .♦S 

07051 

447354 

f 

TADDl 

ISZ CNT8 

07052 

606572 


JMP RTNIT 

07053 

777777 

SUBl 

law 

07054 

347353 


TAD CNTA 

07055 

047353 


DAC cnta 

07056 

147354 


OZM CNTB 

07057 

700104 


RSA 

07060 

606572 


JMP RTNIT 


/ 

.eject 


/PBlvT 


/PUKCW F'LAG SET 
/MASK ACS 6 

/IP A 1, DO\'T USE C‘’TA or C‘T3 
/RETURN TO r.ST, TEST 
/CNiTAsPuf CM SELECTED 

/0BWAIT FOR PI 

/isselect reader again 

/RETURN TO I-ST, test 


/MASK ACS 7 AND B 

/IF either is a 1, READ FULL SPEED 


/MASK ACS 6 

/IF A 1, clear reader ElAG, \c 
/MORE PPS from reader 

/CLEAR reader FlaG 

/RETURN TO INST, TEST AND 
/WAIT FOR PUNCH PI 
/READ ONE 

/0«NO DATA IN READER YET 

/SEE IF PUNCH IS selected 

/YES, Subtract frqn cnta 
/reader selected 
/STORE CHAR, IN TTY PIN 


/CHECK for 52 CHARACTERS STORED 
/DONE, SFTUP TO PRINT 


/RETURN TO P'ST, TEST 
/(CNTA )-1 


/RETURN TQ INST, TEST 




EJECT 


/WAIT FOR PU^CH 


/CLEAR P'JMCH FLAG 
/CLEAR tty flag 


/RESTORE INPUT/OUTPUT POINTERS 
/REAPER TO BI^ 

/BIN TO TTV 

/TRAKiSFER buffer A TO BUFFER B 


/DONE IF equal to TTBUF0*63 

/transfer another 
/restore buffer pointers 

/TTBUFB-i 
/BEGIN PRINTING 


/PUNCH 0»S only aT end of BLOCK 

/IGOPNCH) N0T«60PNCHi3 

/FRAME COUNTER 
/ACS777777 

/CLEAR AC WITH bit 14 

/ERROR. MBi4 DIDN’T CLEAR AC 
/PUNCH BLANK FRamE 


/CLEAR PUNCH FLAG 
/SETUP TO PRINT 




BX6k 

BX8K 






/readb 

routime is used 

ONLT when punch is I ITED 



/BY ACS 

7 OR 

! 8# OR BnTW 

, READER RUNS AT rjLL SPEED, 

37135 

750004 

/ 

READ? 

las 



07136 

507430 


A NO 

K4K 

/MASK ACS 6 

07137 

741200 


SNA 


/IF A 1# DON’T read 

07140 

607143 


JMP 

,*3 


07141 

700112 


RRB 


/CLEAR READER FlaG 

07142 

606572 


JMP 

RTNIT 

/RETURN TO I'ST, TEST 

07143 

700112 


RRB 


/GET CHAP, PROM ^urrrR, 

07144 

741200 


SNA 


/0 s NO data in reader yet, 

07149 

607153 


JMP 

SELECT 

/select reader again 

07146 

447352 


isz 

TTIn 

/BUFFER pOI'^ter *1 

07147 

067352 


OAC« 

► ttin 

/STORE C«AR, I'-. ttBUFA 

07150 

207352 


LAC 

TTIn 


07151 

546705 


SAD 

ENDBIN 

/CHECK FOR 52 CHARS, STORED 

07152 

607160 


JMP 

,♦6 

/ttbufa is full 

07153 

700104 

SELECT 

RSA 


/SELECT READER 

07154 

700101 


RSF 



07159 

741000 


SKP 



07156 

740040 

L649 

mLT 


/READER FLAG SET 

07157 

606572 

i 

JMP 

RTNIT 

/RETURN TO INST, TEST 

07160 

206704 

/ 

LAC 

oatabl 


07161 

047352 


OAC 

TTIN 

/restore ttbufa pointer 

07162 

750004 


las 



07163 

507431 


AND 

K6K 

/MASK ACS 6 and 7 

07164 

740200 


SZA 


/IF either a ii dOn*t print 

07165 

607153 


JMP 

SELECT 

/sel5;|vT reader again 

07166 

607064 


JMP 

setty*3 

/SETUP TO PRINY 



/SERVICE NO 

i 

TAPE conditions 

07167 

000000 

f 

RNfLG 

0 



07170 

507424 


AND 

KlK 

/CHECK FOR reader NO TAPE 

07171 

740200 


SZA 



07172 

607177 


JMP 

,♦5 

/READER 

07173 

760320 


LAW 

320 

/PUNCH NO tape 

07174 

247365 


XOR 

K520K 


07175 

047402 


OAC 

NTFlG*! 


07176 

607201 


jMP 

outflg 

/PRINT R OR p No Tape 

07177 

760322 


law 

322 

/READER NO TAPE 

07200 

607174 


JMP 

, »4 


07201 

207216 

outflg 

lac 

NTFl 


07202 

047335 


dac 

wdcnt 


07203 

107273 


JMS 

CRLF 

/cr,lf 

07204 

447335 


ISZ 

WDCnT 


07205 

227335 


LAC« 

» WDCNT 


07206 

741200 


SNA 



07207 

607214 


JMP 

CLPFLG 


07210 

107237 


JMS 

TLSSF 


07211 

107264 


jMS 

R0TAT9 


07212 

107237 


JMS 

TLSSF 


07213 

607204 


J^P 

nUTFLG*^ 
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BX0K 


RX8K 


07214 107273 

07215 627167 

07216 007401 


CLPELG CRLF /CP#LF 

j'^P* RSTLG /RETURN TO SF0UF^CE 

NTFl NTF|.g 
.EJECT 



BX8k BX8K 




/PUNCN 

t 

LEADER 

?7?17 

000000 

/ 

PMEDP 

■■y 

'^7220 

777470 


A w 3 1 0 

^^7221 

047335 


DAC WDC\T 

07222 

750000 


CLA 

07223 

700204 


PSA 

07224 

700201 


PSr 

07223 

607224 


JMP ,»1 

07226 

447335 


1S2 WDC\'T 

07227 

607223 


JPP ,«4 

07230 

627217 

y 

JMP* P^lEOR 

07231 

000000 

/ 

pnhawk 

0 

07232 

777777 


law 

07233 

700204 


P$A 

07234 

700201 


Psr 

07235 

607234 


JMP ,•! 

07236 

627231 


JMP* PVMARK 

.EJECT 


/EXIT 


BX8K 


PAGE' 118 BX8k 


/ 

/print a character 


/ 


07237 

00000 ^ 

TLSSF 

0 

07240 

047342 


DAC moved 

07241 

207514 


lac work 

07242 

740010 


RAL 

07243 

740102 


SNA 

07244 

607247 


JMP ,*3 

07245 

700401 


TSF 

07246 

6{:7245 


JMP ,*1 

07247 

207340 


lac moved 

07250 

700436 


TLS 

07251 

700401 


TSF 

07252 

607251 


JMP ,*1 

07253 

207002 


LAC GOPNCH*! 

07254 

547302 


SAD KJMP 

07255 

607262 


JMP ,45 

07256 

207514 


LAC work 

07257 

740010 


RAL 

07260 

743100 


SMA 

07261 

700402 


TCP 

07262 

207340 


LAC moved 

07263 

627237 


JMP« TLSSF 



/ROTATE 

9 right 

07264 

000030 

y 

R0TAT9 

0 

07265 

742020 


RTR| RTRI 

07266 

742020 



07267 

742020 



07270 

742020 


RTR| RAR 

07271 

740020 



07272 

627264 


JMP* R0TAT9 


/CHECK TTV flag 


/WAIT FOR flag 


/CLEAR TTV IF BIT 1 « ? 


RTR 


/ 

/carriage return, linefeed 


/ 


07273 

000000 

CRLF 

0 


07274 

760215 


law 215 

/CR 

07275 

107237 


JMS TLSSF 


07276 

547300 


SAD .*2 


07277 

627273 


JMP* CRLF 


07300 

760212 


law 212 

/LF 

07301 

607275 


JMP CRLF*2 


07302 

606663 

kjmp 

JMP E646*3 



/ 


EJECT 



AGiaR9 

BX8k 

BXBK 





/PRIMT 

"COMPLETE" 


07303 

000000 

Pl^OT 

0 


07304 

207520 


LAC W0RK4 

/PASS CouSTEP 

27305 

547417 


SAD K12a 

/PRINT ir frjijAL 

27306 

741000 


SKP 


27307 

627303 


JHP* pinot 

/start program 

27310 

147520 


D2M WORk4 


07311 

157520 


DZM wORk4*10000 


27312 

207326 


lac COMpa 


07313 

040014 


OAC 14 

/PRINT complete 

07314 

107273 


JMS CRLF 


07315 

220014 


lac# 14 


07316 

741200 


SNA 

/DONE printing if ?. 

07317 

607324 


JMP ,*5 


07320 

107237 


JMS TLSSF 

/PRINT 1 CHAR 

07321 

107264 


jMS R0TAT9 


07322 

107237 


JMS TLSSr 

/PRINT 2vD 

07323 

607315 


jMP ,-6 

/GET NEXT PAIR 

07324 

107273 


JMS CRLF 

/CR» LE 

07325 

627303 


JMP# PInoT 


07326 

007373 

COMPA 

COMP 



.EJECT 



/constant tabi,e for CHFCkERBOARO and pi 
/service routines 


/ 


07327 

752525 

Ll'^ITA 

07330 

000000 

PAIR 

07331 

000000 

PATWO 

07332 

000112 

3GNL0 

07333 

010112 

BGNHI 

07334 

000000 

preak 

07335 

000000 

WOCNT 

07336 

777776 

WC256 

07337 

000000 

MOVES 

07340 

000000 

MOVED 

07341 

777777 

BITSUR 

07342 

007777 

K7777 

07343 

100000 

K100K 

07344 

001400 

K1400 

07345 

003400 

K3400 

07346 

500000 

K500K 

07347 

000777 

K777 

07350 

777611 

Ml67 

07351 

000000 

TTOUT 

07352 

000000 

ttin 

07353 

000000 

CNTA 

07354 

000000 

CNTB 

07555 

000257 

K257 

07356 

000271 

K27i 

07357 

000300 

<300 

07360 

000301 

<301 

07361 

000000 

STORE 

07362 

000240 

SPCE 

07363 

000332 

<332 

07364 

212215 

<crlf 

07365 

520000 

<520K 

07366 

000000 

LWR 

07367 

000000 

UPR 

07370 

000000 

WC02 

07371 

000000 

WC04 

07572 

000000 

wC32 


752525 /OELTMITFR 

c 

0 

SEOUEN 

SEQUEN*120at3 

0 

0 

777776 

0 

min 

nil 

100000 

1400 

3400 

300000 

111 

777611 

0 

0 

0 

0 

257 

271 

300 

301 
0 

240 

332 

212215 

520000 

0 

0 

0 

0 

0 


EJECT 





BX8k 


BX8< 


/ 




/PRpvT 

routine 

constants 



/"CO^^PLETE" 


07373 

007373 

/ 

CO^P 

t 


07374 

317303 


317303J 

3203151 305314 

07375 

320315 




07376 

305314 




07377 

305324 




07400 

000000 






/R OP 

J 

p NO tape 


07401 

007401 

/ 

NTFlG 

1 


07402 

000000 


0 


07403 

317316 


317316J 

3242401 320301 

07404 

324240 




07405 

320301 




07406 

240305 


2403051 

207207 

07407 

207207 




07410 

000000 


0 




/constant and error tables, 

07411 

000000 

f 

K0 

0 


07412 

000001 

K1 

1 


07413 

000002 

K2 

2 


07414 

000004 

K4 

4 


07415 

000010 

K10 

10 


07416 

000011 

Kll 

11 


07417 

000012 

K12A 

12 


07420 

000100 

K100 

100 


27421 

000020 

K20 

20 


07422 

000022 

K22 

22 


27423 

000040 

K40 

40 


07424 

001000 

KIK 

1000 


07425 

000400 

K400 

400 


07426 

002000 

K2K 

2000 


07427 

003000 

K3K 

3000 


07430 

004000 

K4K 

4000 


07431 

006000 

K6K 

6000 


07432 

000200 

K200 

200 


07433 

207400 

K207 

207400 


07434 

040000 

K40K 

40000 


07435 

400000 

K400K 

400000 


07436 

400002 

K402I< 

400002 


07437 

010000 

K10K 

10000 


07440 

020000 

K20K 

20000 


07441 

200000 

K200K 

200000 


07442 

600000 

k600K 

600000 


07443 

700000 

k700k 

700000 


07444 

002021 

K2021 

2021 


07445 

002120 

K2120 

2120 


07446 

mill 

KlS 

Him 


07447 

222222 

K2S 

222222 


07450 

333333 

K3S 

333333 



3053241 


mot MODirlED WHEN IN HI 4K 
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07451 444444 

07452 555555 

07453 666666 

07454 777777 

07455 011111 

07456 012222 

07457 013333 

07460 014444 

07461 015555 

07462 016666 

07463 017777 

07464 002525 

07465 005252 

07466 252525 

07467 525252 

07470 525253 

07471 077777 

07472 525002 


BXBK 


K4S 

444444 

k5S 

555555 

k6S 

666666 

k7S 

777777 

K5iS 

mil 

k12S 

12222 

k13S 

13333 

k14S 

14444 

k15S 

15555 

K16S 

16666 

K17S 

17777 

K2525 

2525 

k5252 

5252 

K010 

252525 

Ki01 

525252 

K53 

525253 

k37S 

077777 

k502 

525002 

.eject 



07^73 

07474 

07475 

07476 

07477 
77500 
^ 75^1 

07502 

07503 

07504 

07505 

07506 

07507 

07510 

07511 

07512 

07513 

07514 

07515 

07516 

07517 

07520 

07521 

07522 

07523 

07524 

07525 

07526 

07527 

07530 

07531 

07532 

07533 

07534 

07535 

07536 

07537 

07540 

07541 

07542 

07543 

07544 

07545 

07546 

07547 

07550 

07551 


BX8k 

700042 

700002 

760002 

100002 

6040t^2 

344002 

741000 

750000 

777776 

777773 

777737 

777377 

773777 

737777 

377777 

000377 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

740010 

740001 

000000 

000000 

420015 

777777 

120015 

740040 

620012 

200000 

741400 

740400 

123456 

654321 

361416 

055363 

546060 

243035 

762572 

453237 

150214 

000000 


9v8K 

i<7X42 

k7XX2 

476X2 

<1XX2 

46X42 

K344X2 

KSKP 

4CLA 

'^l 

^4 

^•40 

m400 

m4K 

M40K 

M400K 

K377 


700042 

700002 

760002 

10000 ? 

604002 

344002 

SKP 

CUA 

777776 

777773 

777737 

777377 

773777 

737777 

377777 

377 


/ 

RJCNT 0 
WORK 0 
WORKl 0 
W0RK2 0 
wORK3 0 
W0RK4 0 
lUOR 0 
AUTNOT 0 
TCIK 0 

xctral ral 
autcma cha 
SAVAC 0 
RJMP 0 
LAWAuT XCT* 15 
lawful law 17777 
JMSAUT JMS* 15 
KHALT 740040 
JMPAUT JMP* 12 
SAV4 lag 0 
KS2L 741400 
KSNL 740400 
RANCON 123456 
RANT8L 654321 
361416 
055363 
546060 
243035 
762572 
453237 
150214 
0 

.EJECT 
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07552 

07553 

07554 

07555 

07556 

07557 

07560 

07561 

07562 

07563 

07564 

07565 

07566 

07567 

07570 

07571 

07572 

07573 

07574 

07575 

07576 

07577 

07600 

07601 

07602 

07603 

07604 

07605 

07606 

07607 

07610 

07611 

07612 

07613 

07614 


BX8k BX8K 



/ERROR 

TABLES 


000000 

/ 

JMPRET 

0 

/JMP 

000000 

Jill 

0 

/JMP 

000003 

j222 

3 

/jmp 

000000 

J333 

0 

/JMP 

000000 

J444 

0 

/JMP 

000000 

j555 

0 

/JMP 

000000 

J666 

0 

/JMP 

000000 

J777 

0 

/JMP 

000000 

J525 

0 

/JMP 

000000 

J252 

0 

/JMP 

000000 

CAL3 

0 

/CAL 

000000 

CALI 

0 

/CAL 

000000 

JSM71 

0 

/JMS 

000000 

JSM72 

0 

/jms 

000000 

JSM73 

0 

/JMS 

000000 

JSM74 

0 

/JMS 

000000 

JSM75 

0 

/JMS 

000000 

JSM76 

0 

/JMS 

000000 

JSM77 

0 

/JMS 

000000 

JS252 

0 

/JMS 

000000 

JS525 

0 

/JMS 

000000 

JSSS 

0 

/JMS 

000000 

y 

XCTll 

0 

/XCT 

000000 

XCT12 

0 

/XCT 

000000 

XCT13 

0 

/XCT 

000000 

XCT17 

0 

/XCT 

000000 

XCT125 

0 

/XCT 

000000 

JST77 

0 

/ JMS* 

000000 

JST66 

0 

/ jmS* 

000000 

JST55 

0 

/jmS# 

000000 

JST44 

0 

/jmS# 

00.0000 

auTjmp 

0 

/JMP* 

000000 

autjms 

0 

/jms» 

000000 

TTBUFA 

0 


752525 


752525 


000000 


,ENO 


S!?E 

= 07615 

NO ERROR 

LINES 


22 

11111 (E509) 

12222 (E510) 

13333 (fSlll) 

14444 (E512) 

15555 (E513) 

16666 {r5l4) 

17777 (F515) 

15252 (E516) 

12525 (E517) 

FROM 17757 EXT, LINK » 0 (E5l6) 
FROM 17757, LI^K » i (£520) 

FROM 07777 TO lllll (E522) 

FROM 07776 TO 12222 <E524) 

FROM 07775 TO 13333 (E526) 

FROM 07774 TO 14444 (E528> 

FROM 07773 TO 15555 Ir530) 

FROM 07772 TO 16666 <E532) 

from 07771 TO 17777 (E534) 

FROM 12525 TO 15252 {£536) 

FROM 15252 TO 12525 {£538) 

SERIES TEST (E540) 

JMS. from lllll XCt {16666) (£562) 
WMS, FROM 12222 XCt {15555) (£564) 
JMS, FROM 13333 XCT (14444) (E566) 
J,S FROM 07776 XCT (17776) (£568) 
JMS, FROM 12525 XCT (15252) 

07777 (£592) 

16666 {E594) 

15555 (£596) 

14444 (£598) 

12 (AUTO-^IMOEX) (E620) 

17 (AUTO-INOEX) (£633) 




BX6k 

BX8K 

AAC 

723000 


aas 

720000 


AB^ATS 

02563 


ADOAC 

01557 


ADDAC3, 

02025 


ADDI 

05413 


AOEOON 

03063 


ambpbt 

02624 


ambsum 

03060 


aminsb 

02466 


AHMSBT 

02522 


anoac 

01341 


aneg 

03052 


APUSBT 

02507 


APLUSB 

02452 


APOS 

03051 


AURJMP 

06027 


AUTCMA 

07525 


AyTjMP 

07611 


autjms 

07612 


autnot 

07522 


AUTOIN 

05414 


autr 

05561 


AUTRET 

06025 


AUTREl 

05673 


autrjm 

06026 


AXR 

737000 


AXS 

725000 


begin 

00022 


BGNAGN 

06473 


bgnhi 

07333 


BGNLO 

07332 


BISETU 

03071 


BJTN 

06004 


BITSUP 

07341 


bittsi 

03110 


BITTS2 

03123 


bmambt 

02576 


bmasum 

03057 


bminsa 

02460 


bmnsat 

02550 


BnEG 

03054 


BPOS 

03053 


break 

07334 


CAI.0 

07564 


CALI 

07565 


cklp 

03044 


ckno 

06362 


clac 

734000 


ClKINT 

06606 


ClKSET 

06631 


CULR 

736000 


ClOF 

700004 


ClON 

700044 


ClRFLG 

07214 
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BX8k 


BX8K 


Cisv 

700001 

ClX 

735000 

C\'Tfi 

07353 

C N| T S 

07354 


07373 

COMPA 

07326 

Co^C^G 

03022 

CRUF 

07273 

Oacac 

03374 

oatabl 

06704 

DBPX 

00237 

DBPXX 

00242 

DBPXXX 

00250 

DHMaC 

03255 

EBA 

707764 

endbin 

06705 

EnOOUT 

06707 

EnDTPL 

06360 

EnTST 

06410 

epa 

707762 

eri 

05762 

ExBA 

707741 

EX21 

06034 

EX02 

06041 

E)ce3 

06043 

EX8I4 

06050 

EX05 

06052 

EX?6 

06061 

EX(?7 

06064 

EX10 

06066 

EX13 

06071 

EX14 

06075 

EX15 

06077 

EX16 

06110 

EX17 

06115 

EX18 

06120 

EX19 

06122 

EX20 

06125 

EX21 

06135 

EX22 

06137 

EX23 

06143 

EX24 

06145 

EX25 

06151 

EX26 

06153 

EX27 

06157 

EX28 

06161 

EX29 

06165 

EX3e 

06167 

EX31 

06172 

EX32 

06174 

EX33 

06176 

£X34 

06203 

EX35 

06205 

EX36 

06211 


06213 



BK8k 


BX8K 


EX36 

06217 

EX39 

06221 

Ex40 

06225 

e;x4i 

06227 

EX42 

06234 

EX43 

06236 

EX44 

06243 

EX45 

06245 

Ex46 

06253 

EX47 

06255 

EX48 

06261 

EX49 

06264 

EX50 

06266 

EX51 

06271 

EX52 

06276 

EX53 

06301 

Ex54 

06316 

EX55 

06321 

E113 

00677 

E114 

00724 

E115 

00740 

E116 

00754 

E140 

01002 

E141 

01030 

E142 

01045 

E143 

01062 

E162 

01066 

E163 

01072 

E164 

01076 

El65 

01102 

E166 

01106 

E167 

01112 

Ea.68 

01116 

E169 

01122 

E170 

01125 

E2{!6 

01136 

E207 

01141 

E208 

01144 

E209 

01147 

E210 

01152 

E211 

01154 

E212 

01160 

E213 

01163 

E214 

01166 

E215 

01l7l 

E216 

01174 

E217 

01177 

E2ie 

01201 

E219 

01206 

E22t: 

01210 

E221 

01215 

E222 

01217 

E223 

01224 

E224 

01226 

E?25 

01233 



PX8(< 


5y3< 
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£226 31235 
E 24 30157 
£25 30163 
£256 31245 
£259 01247 
£26 03167 
£260 01253 
£261 01255 
£262 01261 
£263 01263 
£264 01267 
£265 01271 
£266 01276 
£267 01300 
£266 01305 
£269 01307 
£27 00173 
£ 27 a 00207 
£270 01314 
£271 01316 
£272 01323 
£273 01334 
£274 01344 
£275 01350 
£276 01354 
£277 01361 
£278 01375 
£279 01377 
£28 00217 
£280 01407 
£281 01414 
£282 01421 
£283 01425 
£284 01440 
£285 01450 
£286 01452 
£287 01457 
£288 01461 
£289 01466 
£29 00223 
£290 01470 
£291 01476 
£292 01500 
£293 01504 
£294 01506 
£295 01512 
£296 01514 
£297 03522 
£298 01524 
£299 01532 
£30 00227 
£300 01534 
£301 01544 
£302 01552 
£M3 ^^J.564 



^A(1Vf29 5X8 k 

£304 01566 
£305 01574 
E:306 01576 
£307 01604 
E308 01606 
£309 01614 
£31 00233 
£310 01616 
£311 01624 
£312 01626 
£313 01634 
£314 01636 
£315 01644 
£316 01646 
£317 01654 
£318 01656 
£319 01664 
£32 00262 
£320 01666 
£321 01675 
£322 01677 
£323 01706 
£324 01710 
£325 01717 
£326 01721 
£327 01730 
£328 01732 
£329 01741 
£33 00265 
£330 01743 
£331 01752 
£332 01754 
£333 01763 
£334 01765 
£335 01774 
£336 01776 
£337 02005 
£338 02007 
£339 02016 
£34 00271 
£340 02020 
£347 02033 
£348 02035 
£349 02044 
£35 00274 
£350 02046 
£351 02055 
£352 02057 
£353 02066 
£354 02070 
£355 02077 
£356 02101 
£357 02110 
£356 02112 
£359 02121 


8x8k 



RX8k 


BXBK 
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E36 003^0 
E360 02123 
E361 02132 
£362 02134 
£363 02143 
£364 02145 
£365 02154 
£366 02156 
£367 02165 
£366 02l67 
£369 02176 
£37 00303 
£370 02200 
£371 02207 
£372 02211 
£373 02220 
£374 02222 
£375 02231 
£376 02233 
£377 02242 
£376 02244 
£379 02253 
£38 00307 
£380 02255 
£381 02264 
£382 02266 
£383 02275 
£364 02277 
£385 02306 
£366 02310 
£387 02317 
£386 02321 
£389 02330 
£39 00312 
£390 02332 
£391 02341 
£392 02343 
£393 02351 
£394 02353 
£395 02361 
£396 02363 
£397 02371 
£398 02373 
£399 02406 
£40 00315 
£400 02410 
£401 02514 
£402 02320 
£403 02527 
E404 02533 
£405 02542 
£406 02546 
£407 02570 
£406 02574 
£419 22603 



1 


pySK 


PXSK 




E41 

00320 

E410 

026t'7 

E411 

02616 

E412 

02622 

E:413 

02631 

E414 

02635 

£415 

02643 

E416 

02647 

E417 

02657 

E418 

02663 

E43L9 

02674 

E42 

00324 

E420 

02700 

E421 

02712 

E422 

02716 

E423 

02731 

£424 

02735 

E425 

02751 

E426 

02755 

E427 

02772 

E428 

02776 

£429 

03014 

£43 

00327 

£430 

03020 

£431 

03115 

£432 

03121 

£433 

03130 

E434 

03134 

E435 

03156 

£436 

03161 

£437 

03164 

£438 

03170 

£439 

03175 

£44 

00333 

£440 

03201 

£441 

03205 

£442 

03212 

£443 

03231 

£444 

03250 

£445 

03261 

£446 

03266 

£447 

03273 

E448 

03300 

£449 

03305 

£45 

00336 

£450 

03312 

£451 

03317 

£452 

03324 

£453 

03331 

£454 

03336 

£455 

03344 

£456 

03346 

£457 

03351 

£458 

£3361 

£459 

03367 



BX8k 


BX8k 
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£46 20342 
E460 23400 
£461 03405 
£462 03412 
£463 03417 
£464 03424 
£465 03431 
£466 03436 
£467 03443 
£468 03450 
£469 03462 
£47 00346 
£470 03472 
£471 03503 
£472 03507 
£473 03514 
£474 03520 
£475 03525 
£476 03531 
£477 03536 
£476 03542 
£479 03547 
£48 00351 
£480 03553 
£481 03560 
£482 03564 
£483 03571 
£484 03574 
£465 03601 
£486 03604 
£487 03611 
£488 03614 
£489 03621 
£49 00355 
£490 03624 
£491 03631 
£492 03634 
£493 03641 
£494 03644 
£495 03651 
£496 03654 
£497 03661 
£496 03664 
£499 03671 
£50 00360 
£500 03674 
£501 03714 
£502 03724 
£503 03750 
£504 03756 
£505 03764 
£506 03773 
£507 04002 
£508 04031 
£559 £1A»37 



E51 

00363 

E510 

04050 

E511 

04061 

E5i2 

04072 

E513 

04103 

E614 

04114 

E515 

04125 

E516 

04136 

E517 

04147 

E518 

04200 

E&19 

04216 

E519A 

04221 

E52 

00370 

E520 

04224 

E521 

04237 

E521A 

04242 

E522 

04260 
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£462 

03412 

£463 

03417 

£464 

03424 

£465 

03451 

£466 

03436 

£467 

03443 

£466 

03450 

£469 

03462 

£470 

03472 

ISZAC 

03477 

£471 

03503 

£472 

03507 

£473 

03514 

£474 

03520 

£475 

03525 

£476 

03531 

£477 

03536 

£478 

03542 

£479 

03547 

£480 

03553 

£481 

03560 

£482 

03564 

£483 

03571 

£484 

03574 

£485 

03601 

£486 

03604 

£487 

03611 

£488 

03614 

£489 

03621 

£490 

03624 

£491 

03631 

£492 

03634 

£493 

03641 

£494 

03644 

£495 

03651 

£496 

03654 

£497 

03661 

£498 

03664 

£499 

03671 

£500 

03674 

£501 

03714 

£502 

03724 

£503 

03750 

£504 

03756 

£505 

03764 

£506 

03773 

£507 

04002 

INIT4K 

04003 

£508 

04031 

mqdx 

04034 

£509 

04037 

RjMPi 

04045 

£510 

04050 
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RJMP2 04056 
E511 04061 
PJMP3 04067 
E;5J2 04072 
RjMp4 04100 
E513 04103 
PJMP5 04111 
E514 04114 
PJMP6 04122 
E515 04125 
RJMP7 04133 
E516 04136 
RJMP8 04144 
E517 04147 
RJMP9 04155 
JMPSEO 04163 
MOD 04164 
Rjlll 04165 
RJ222 04166 
RJ333 04167 
Rj444 04170 
RJ555 04171 
RJ666 04172 
RJ777 04173 
RJ252 04174 
Rj525 04175 
TSCAU 04176 
E518 04200 
RCAUS0 04212 
E5t9 04216 
E519A 04221 
E520 04224 
RCALSI 0423'3 
E521 04237 
E521A 04242 
RCAL0 04252 
KCAL0 04253 
RCALI 04254 
KCAUE 04255 
TSJMS 04256 
E522 04260 
RJMS71 04271 
E523 04275 
E524 04300 
RJMS72 04312 
E525 04316 
E526 04321 
RJMS73 04333 
E527 04337 
E528 04342 
RJMS74 04354 
E5?9 04360 
E530 04363 
RJMS75 04375 
Z52A. ^401 



E532 

04424 

RJMS76 

04416 

e533 

04422 

F:536 

04425 

RJMS14 

04436 

E537 

04442 

E530 

04445 

RJMSIS 

04456 

E539 

04462 

E540 

04465 

JSl 

04467 

E541 

04470 

JS2 

04471 

E542 

04472 

JS3 

04473 

£943 

04474 

JS4 

04477 

£944 

04500 

RJMSS 

04501 

£545 

04510 

£546 

04517 

£547 

04526 

£548 

04535 

RJSM71 

04543 

RSM71 

04544 

K10000 

04545 

RJSM72 

04546 

RSM72 

04547 

K77 

04550 

RJSM73 

04551 

RSM73 

04552 

K76 

04553 

RjSm74 

04554 

RSM74 

04555 

<75 

04556 

RJSM75 

04557 

RSM75 

04560 

K74 

04561 

RJSM76 

04562 

RSM76 

04563 

<73 

04564 

RSM77 

04565 

<72 

04566 

RjSm25 

04567 

RSM25 

04570 

<426 

04571 

RJSM52 

04572 

RSM52 

04573 

K71 

04574 

K415 

04575 

KjSl 

04576 

<JS2 

04577 

<JS3 

04600 

KJS4 

04601 

K210K 

04602 
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K277 046?!3 

K276 04604 

^<275 04605 

K274 04606 

K273 04607 

K626 04610 

K6i5 04611 

iK2152 04612 

TSXCT 04613 

E549 04617 

E^50 04622 

E$51 04627 

E552 04631 

E553 04633 

E554 04637 

04644 
E556 04650 

E597 04656 

E556 04660 

E559 04665 

E560 04667 

E561 04675 

C562 04700 

RXCTl 04711 

E563 04715 

E564 04720 

RXCT2 04731 

E565 04735 

£566 04740 

RXCT3 04751 

E567 04755 

£568 04760 

RXCT4 04771 

E569 04775 

E570 05000 

RXCT5 05011 

E57l 05015 

E572 05034 

E573 05036 

XniS 05044 

XTRll 05045 

XTIR 05046 

K12 05047 

XT12S 05050 

XTR12 05051 

XT2R 05052 

K23 05053 

XT13S 05054 

XTR13 05055 

XT3R 05056 

K34 05057 

XT17S 05060 

XTR17 05061 

XT4R 05062 

XQ^2S £.5063 
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XCTR12 

XT5R 

XCTIS2 

XCTDAC 

xcttad 

UACIK' 

E584 

E585 

E586 

E587 

£586 

E589 

E590 

E591 

XTJMSI 

£592 

PJSII 

t593 

E594 


E595 

£596 

RJSI3 

£597 

£598 

RJSI4 

£599 


INK52 

JMSIl 

RJMII 

RJSIIX 

JSI66 


Kl52lf3 

JS155 

RJM15 

WSI44 

RJMI4 

XTXCT 

£600 

£601 

£602 

XCTDEM 

ADOI 

AUTOIN 

£603 

£604 

£605 

£606 


£607 


£608 

£609 

£610 


£611 

£612 


05064 

05065 

05066 

05067 

05070 

05071 
05101 
05112 
05123 
05134 
05145 
05156 
05167 
05200 
05205 
05211 
05223 
05230 
05235 * 
05247 
05255 
05257 
05271 
05275 
05301 
05313 
05317 

05326 

05327 

05330 

05331 

05332 

05333 

05334 

05335 

05336 

05337 

05340 

05341 
05353 
05361 
05373 

05412 

05413 

05414 
05422 
05426 
05435 
05441 
05450 
05454 
05463 
05467 
05476 
05502 
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E:613 

05511 

E614 

05515 

E615 

05524 

E:616 

05530 

E617 

05536 

E616 

05541 

E619 

05545 

E620 

05550 

AUTR 

05561 

E621 

05565 

E622 

05576 

E623 

05602 

E624 

05612 

E629 

05616 

E6S6 

05626 

E627 

05630 

E626 

05634 

E629 

05640 

C63e 

05647 

E631 

05653 

E632 

05657 

E633 

05662 

AUTREI 

05673 

E634 

05700 

E639 

05704 

E636 

05712 

E637 

05716 

E638 

05721 

E639 

05730 

E640 

05743 

E641 

05747 

UAWD 

05754 

LAWS 

05756 

ERl 

05762 

BIT\ 

06004 

KNOP 

06005 

Kl777$ 

06006 

K17777 

06007 

K16665 

06010 

K16666 

06011 

K15554 

06012 

K15555 

06013 

K14443 

06014 

K14444 

06015 

K13332 

06016 

K13333 

06017 

K12221 

06020 

K12222 

06021 

K11110 

06022 

Klllll 

06023 

K15252 

06024 

AgTRET 

060.25 

AgTRJM 

06026 

AgRjMp 

06027 

T lAC 

£6030 
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06034 

tX?2 

06041 

1X03 

06043 

E.X04 

06050 

EX0& 

06052 

EX06 

06061 

EX07 

06064 

EXIZ 

06066 

EX13 

06071 

EX14 

06075 

EX15 

06077 

tswh 

06104 

EX16 

06110 

EX17 

06115 

EX18 

06120 

EX19 

06122 

EX20 

06125 

TSXC 

06132 

EX21 

06135 

EX22 

06137 

EX23 

06143 

EX24 

06145 

EX25 

06151 

EX26 

06153 

EX27 

06157 

EX28 

06161 

EX29 

06165 

EX30 

06167 

Ex3i 

06172 

EX32 

06174 

EX33 

06176 

EX34 

06203 

EX35 

06205 

EX36 

06211 

EX37 

06213 

EX38 

06217 

EX39 

06221 

EX40 

06225 

Ex4i 

06227 

EX42 

06234 

EX43 

06236 

EX44 

06243 

EX45 

06245 

EX46 

06253 

EX47 

06255 

EX48 

06261 

EX49 

06264 

EX50 

06266 

EX51 

06271 

EX52 

06276 

EX53 

06301 

PC05 

06310 

Ex54 

06316 

Ex55 

06321 

GEWRAN 

06336 
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RANTAO 06353 
HANDEX 06357 
tNOTRL 06360 
TBLTOP 06361 
CKNiO 06362 
RAMGEN 06367 
TaDRAN 06404 
ENTST 06410 
^OVE 06421 
HFROM 06425 
MVRTN 06435 
MVCST 06443 
BGNAGN 06473 
MVBK 06503 
MRINS 06510 
5AV3 06526 
SAV5 06527 
SAV6 06530 
SRVINT 06531 
E642 06541 
NQCLK 06543 
E642A 06545 
E643 06553 
PTWIT 06572 
E644 06601 
PfON 06603 
HINT 06605 
CtKINT 06606 
E644A 06611 
SETCLK 06614 
CtKSET 06631 
TTYINT 06646 
E645 06655 
E646 06660 
PREADY 06665 
OATABL 06704 
ENDBIN 06705 
OgTTOP 06706 
ENOOUT 06707 
PNSTRT 06710 
PNXT 06731 
PNXTA 06744 
E647 06770 
GQPNCH 07001 
E647A 07006 
READA 07020 
2R0N0T 07041 
TaODI 07051 
SU81 07053 
SETTY 07061 
XFRl 07075 
PUN6 07112 
E648 07124 
K647 07134 
PEADP £7135 
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SELECT 

07153 

E649 

07156 


07167 

outflg 

07201 

CuRFlG 

07214 

^^TFL 

07216 

pnledr 

07217 

PNMARK 

07231 

Ti,SSF 

07237 

R0TAT9 

07264 

CRUF 

07273 

KjMp 

07302 

PJMOT 

07303 

CQMPA 

07326 

LIMITA 

07327 

patr 

07330 

PATWO 

07331 

bgnlo 

07332 

bgnhi 

07333 

break 

07334 

WOCNT 

07335 

WC256 

07336 

moves 

07337 

MOVED 

07340 

BITSUP 

07341 

K7777 

07342 

K100K 

07343 

K14O0 

07344 

K3400 

07345 

K500K 

07346 

K777 

07347 

M167 

07350 

ttout 

07351 

ttin 

07352 

cnta 

07353 

cntb 

07354 

K257 

07355 

»<27i 

07356 

K300 

07357 

K301 

07360 

STORE 

07361 

SPCE 

07362 

K332 

07363 

KCRLF 

07364 

K520K 

07365 

UWR 

07366 

UpR 

07367 

WC02 

07370 

WC04 

07371 

WC32 

07372 

Comp 

07373 

mtfug 

07401 

K0 

07411 


07412 

K2 

07413 
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K4 

07414 

K10 

07415 

Kll 

07416 

K12A 

07417 

K100 

0742P 

K20 

07421 

K22 

07422 

K40 

07423 

KIK 

07424 

K400 

07425 

K2K 

07426 

K3K 

07427 

K4K 

07430 

K6K 

07431 

K200 

07432 

K207 

07433 

K40K 

07434 

K400K 

07435 

K402K 

07436 

Ki0K 

07437 

K20K 

07440 

K200K 

07441 

K600K 

07442 

K700K 

07443 

K2021 

07444 

K2120 

07445 

KIS 

07446 

K2S 

07447 

K3S 

07450 

K4S 

07451 

K5S 

07452 

K4S 

07453 

K7S 

07454 

K51S 

07455 

K12S 

07456 

K15S 

07457 

K14S 

07460 

KISS 

07461 

K16S 

07462 

•<17$ 

07463 

K2525 

07464 

K5252 

07465 

K010 

07466 

K3.0i 

07467 

K53 

07470 

K37S 

07471 

K502 

07472 

K7X42 

07473 

K7XX2 

07474 

K76X2 

07475 

'<1XX2 

07476 

K6X42 

07477 

K344X2 

07500 

KSKP 

07501 


1^7502 
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‘^1 

07503 

M4 

37504 

*^4? 

07505 


07506 

‘'4K 

37507 

M40K 

37510 

M430K 

37511 

<377 

07512 

RjCNT 

07513 

WO^K 

07514 

WQRKI 

07515 

W0RK2 

07516 

W0RK3 

37517 

WORK4 

07520 


07521 

AyTNOT 

07522 

TCLK 

07523 

xctral 

07524 

AuTCMA 

07525 

SAVAC 

07526 

RJMP 

07327 

LAWAUT 

07530 

LAWFUL 

07531 

JM8AUT 

07532 

khaut 

07533 

JMPAUT 

07534 

SAV4 

07535 

KSHL 

07536 

ksnl 

07537 

RANCON 

07540 

RAWTBL 

07541 

JMBRCT 

07552 

Jill 

07553 

J222 

07554 

J333 

07555 

J444 

07556 

J555 

07557 

J666 

07560 

J777 

07561 

J525 

07562 

J252 

07563 

CAL0 

07564 

CALI 

07565 

JSM71 

07366 

JSH72 

07567 

JSM73 

07570 

JSM74 

07571 

JSM75 

07572 

JSM76 

07573 

JSM77 

07574 

JS252 

07575 

JS525 

07576 

JSSS 

07577 

XCTll 

07600 

XCT12 

07601 



Page i62 


BXdK 


8X8K 


XCT13 

07602 

XCT17 

07603 

XCTi25 

07604 

^ST77 

07605 

JST66 

07606 

JST55 

07607 

JST44 

07610 

AyTjMP 

07611 

AgTjMS 

07612 

ttbufa 

37613 

CUSF 

700001 

ClOF 

700004 

C(,ON 

700044 

Rsr 

700101 

RCF 

700102 

RSA 

700104 

RR0 

700112 

RSB 

700144 

psr 

700201 

Per 

700202 

PSA 

700204 

PSB 

700244 

Ksr 

700301 

krb 

700312 

Tsr 

700401 

Ter 

700402 

Tus 

700406 

LEM 

707704 

CXBA 

707741 

SBA 

707761 

epa 

707762 

ERA 

707764 

aas 

720000 

Pax 

721000 

Pal 

722000 

aac 

723000 

PXA 

724000 

AXS 

729000 

PXL 

726000 

PLA 

790000 

pLX 

731000 

Clac 

734000 

c^x 

735000 

GLLR 

736000 

AXP 

737000 

NQPl 

740000 

N0P2 

740000 

N(0P3 

740000 

UC 

740030 

^ALT 

740040 

SWMA 

742030 
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The purpose of the 8K Basic Exerciser is to exercise 
the PDP-15 Central Processor and I/O Control logic by 
running an instruction test cuid alternately selecting 
the teletype and PC15. 

The method of feeding the paper tape directly from 
the high speed punch to the high speed reader is 
unorthodox, but necessary. Due to the tension placed 
on the reader, the paper tape may sometimes skew 
causing a punched character to be misread. This will 
appear as a misprint on the teletype. 

The frequency of misprinting will vary, but will generally 
appear no more than once every several lines of print. The 
misprint is not due to a reader or teletype fault. 

A user may determine definitely if a real error exists 
by allowing the program to punch for a period of time, 
removing the tape and placing it in the reader hopper. 

The reader will then read the tape directly from the 
hopper. The main document lists the AC switch settings 
which will enable the progrcon to operate in this manner. 



